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;