1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

var
  i,z, LineNumber, NumberExit: Integer;
  Zeilen_anz, Zeilen_aus: TStringList;
  zzName, zz_Name:string;
begin

  //Startlist.txt einlesen
  Memo1.Lines.LoadFromFile('Starliste NEU.txt');
  Zeilen_anz := TStringList.Create;
  Zeilen_anz.AddStrings(Memo1.Lines);
  //Wahl.txt einlesen
  Memo3.Lines.LoadFromFile('Wahl.txt');
  Zeilen_aus := TStringList.Create;
  Zeilen_aus.AddStrings(Memo3.Lines);
  z:=0;
  for i := 1 to 10 do
  begin
    randomize;
    z:=0;
      LineNumber := Random(Zeilen_anz.Count);  //ziehen der Zufalls zahl (länge der liste)
      zzName:=Zeilen_anz[LineNumber]; //die ziel in den str zzName lesen
      NumberExit:=Zeilen_aus.Count; //Ende der wahlliste in numberExit wandeln
   repeat
   begin
      zz_Name:=Zeilen_aus[z]; //sie zeile [1] in zz_Name lesen
      while  zzName = zz_Name do   //ist zzName = zz_Name
      begin
        LineNumber := Random(Zeilen_anz.Count);
        zzName:=Zeilen_anz[LineNumber];
      end;
      z:=z+1;
    end;
    until z=NumberExit;
   Memo2.Lines.Add(zzName);
   memo2.Lines.SaveToFile('Wahl.txt');
   //Memo3.Lines.LoadFromFile('Wahl.txt');
   //Zeilen_aus.AddStrings(Memo3.Lines);
  end;
  Zeilen_anz.Free;
  Zeilen_aus.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

var
  i,z, LineNumber, NumberExit: Integer;
  Zeilen_anz, Zeilen_aus: TStringList;
  zzName, zz_Name:string;
begin
  randomize; // nur einmal! besser nur einmal im programm

  // nur memo oder StringListen, alles anderen ist gaga!
  //Startlist.txt einlesen
  Zeilen_anz := TStringList.Create;
  Zeilen_anz.LoadFromFile('Starliste NEU.txt');
  //Wahl.txt einlesen
  Zeilen_aus := TStringList.Create;
  Zeilen_aus.LoadFromFile('Wahl.txt');
  Memo2.Lines.Clear; // Liste leeren
  Memo2.Lines.AddStrings(Zeilen_aus); // bisherige Miss't Liste schonmal in den Ausgang
  //z:=0; <-- überflüssig
  for i := 1 to 10 do
  begin
     z:=0;
     LineNumber := Random(Zeilen_anz.Count);  //ziehen der Zufalls zahl (länge der liste)
     zzName:=Zeilen_anz[LineNumber]; //die ziel in den str zzName lesen
     NumberExit:=Zeilen_aus.Count; //Ende der wahlliste in numberExit wandeln
     repeat
       zz_Name:=Zeilen_aus[z]; //sie zeile [1] in zz_Name lesen
       while zzName = zz_Name do   //ist zzName = zz_Name
       begin
         LineNumber := Random(Zeilen_anz.Count);
         zzName:=Zeilen_anz[LineNumber];
       end;
       //z:=z+1;
       Inc(z); // <-- besser als : z:=z+1;
     until z=NumberExit;
     Memo2.Lines.Add(zzName);
     //memo2.Lines.SaveToFile('Wahl.txt'); <--- weg damit!
     //Memo3.Lines.LoadFromFile('Wahl.txt');
     //Zeilen_aus.AddStrings(Memo3.Lines);
  end;
  // alte + NEUE speichern
  memo2.Lines.SaveToFile('Wahl.txt'); // und hier hin!
  Zeilen_anz.Free;
  Zeilen_aus.Free;
end;