Mit array of Txy auf anderes TForm zugreifen

[Martin.Ghosts]

Jetzt kapier ich Delphi nicht mehr. Ich habe es jetzt wie folgt umgesetzt:

Delphi-Quellcode:

var
  Form4: TForm4;
  edi: array [1..24] of TEdit;
  mem: array [1..8] of TMemo;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
var countedi, countmem: Integer;
begin
  for countedi:= 1 to 24 do
    begin
      edi[countedi]:= TEdit(Form3.FindComponent(IntToStr(countedi)));
      showmessage('HI');                                  /////////hier wirds interessant(siehe unten)
    end;
  for countmem:= 1 to 8 do
    begin
      mem[countmem]:= TMemo(Form3.FindComponent(IntToStr(countmem)));
    end;
end;

Jetzt kommt das für mich unerklärliche: Beim Staten des Programms wird jetzt 24 mal die Showmessage('HI') aufgerufen, das hat doch aber nichts mit dem Formular 4 zu tun. Es ist doch noch gar nicht erstellt. Oder werden beim Start des Programms schon alle Forms erstellt?