1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var r1,r2:word;
begin
 randomize;
 with memo1.lines do
 while Count > 1 do
 begin
  r1 := random(Count-1);
  memo2.lines.add(memo1.lines[r1]);
  delete(r1);
  r2 := random(memo1.lines.Count-1);
  memo2.lines[memo2.lines.count-1] :=   memo2.lines[memo2.lines.count-1]  +' und '+memo1.lines[r2];
  delete(r2);
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

n:=Anzahl der Personen;
Auswahlliste:=Liste mit allen Personen;
for i:=0 to n do 
begin
   x:=Random(n-i); //zufällige Person wählen
   packe Person_Nr_x in Team_Nr(i DIV 2) // diese Person ins Team packen
   entferne Person_Nr_x aus der Auswahlliste; // sicherstellen, dass diese Person nicht nochmal gewählt wird.
end;