array tedit

Hej

Jeg må have misforstået, hvordan man bruget et array. Jeg ville mene, at der ved ShowMessage burde komme en meddelelse frem, som sagde "hej", men meddelelsen er tom. Hvad gør jeg galt?

Mvh
Jonathan

"
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    A: Array [1..4] of TEdit;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  A[1].Text := 'hej';
  ShowMessage(A[1].Text);
end;

end.
"