Spezielle Aufteilung in meinen Programm

[Knotti2005]

Hallo Leute,

ich lasse bei meien Programm Namen aus 2 Dateien auf EditBoxen aufteilen..

vgl. Programm Seatplan bei Freeware

Delphi-Quellcode:

procedure TForm2.dxButton1Click(Sender: TObject);
var E, E2: TStringList;
    i, ID:Integer;
begin
  E:=TStringList.Create;    //Datei 1
  E.LoadFromFile(form1.OpenDialog1.FileName);
  E2:=TStringList.Create;   //Datei 2
  E2.LoadFromFile(form1.OpenDialog2.FileName);
  E.AddStrings(E2);         //Zusammenführen
  E2.Free;   //Datei 2 kann weg
  for i:=1 to 30 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;

Ich hätte es gerne so das Wenn ich eine Checkbox aktiviert habe immer Namen aus Datei 1 neben Naben aus Datei2 aufgeteitwerden kurzgesagt Jungen neben Mädchen...