begin
   E:=TStringList.Create; //JUNGEN
   E.LoadFromFile(form1.OpenDialog1.FileName);
   E2:=TStringList.Create; //MAEDCHEN
   E2.LoadFromFile(form1.OpenDialog2.FileName);
   for i:=1 to 30 do //für 30 Edits
    begin
    ID:=Random(E.Count); //Index raussuchen
    ID:=Random(E2.Count); //Index raussuchen
    if E.Count=0 and E2.Count=0 then Break;
    if odd(i)= false then TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //JUNGEN in ungerade Edits
    if odd(i)= true then TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E2[ID]; //Meadchen in gerade Edits
    E.Delete(ID); //Text auf SL löschen
    E2.Delete(ID); //Text auf SL löschen
    form2.caption:= 'Seatplan Designer';
    end;
  E.Free;
  E2.Free;
end;
end;