MDI Child Probleme

[Knotti2005]

[/delphi]Ich hatte vorher in einem anderen Programm diesen Code...
Der Button zum ausführne und die Edit Boxen lagen auf der selben Form...

Delphi-Quellcode:

procedure TForm2.dxButton1Click(Sender: TObject);
var E, E2: TStringList;
    i, ID:Integer;
begin
  E:=TStringList.Create;    //Datei 1
  E.LoadFromFile('.\list1.txt');
  E2:=TStringList.Create;   //Datei 2
  E2.LoadFromFile('.\list2.txt');
  E.AddStrings(E2);         //Zusammenführen
  E2.Free;   //Datei 2 kann weg
  for i:=1 to 24 do //für 24 Edits
    begin
    ID:=Random(E.Count);  //Index raussuchen
    if E.Count=0 then Break;
    TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit
    E.Delete(ID);  //Text auf SL löschen
    form2.caption:= 'Seatplan Designer';
    end;
  E.Free;

end;

Nun habe ich ein neues Programm mit MDICHilds beim starten wird ein neues Child mit Edit Boxen erzeugt so wie ich es vorgegeben habe ...

Nur wie sieht jetzt der Code dafür aus? Diesmail liegt der Button auf der Hauptform und die Edit BOxen sind jeweils in den Childs...

Delphi-Quellcode:

    Child.TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit

Wenn ich es so mache mekert TEdit undifinierter bezeichner...

[Niko]

Delphi-Quellcode:

TEdit(Child.FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit