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

procedure TForm1.Button1Click(Sender: TObject);
var x, y: integer;
begin
  randomize;
  repeat
    x := random(rows-1)+1;
    y := random(rows-1)+1;
    If (StringGrid1.Cells[x,y]='') then
    begin
      StringGrid1.Cells[x,y]:='Gespielt!';
      MSpielplan.Lines.Add('Spieler'+IntToStr(x)+' gegen '+'Spieler'+IntToStr(y));
    end;
  until
    MSpielplan.Lines.Count=(StringGrid1.Colcount-1) * (StringGrid1.Rowcount-1) - (StringGrid1.Rowcount-1);
  showmessage('Es gibt '+IntToStr(MSpielplan.Lines.Count)+' Partien');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject);  
  var
    x, y: Integer;  
    LastXY: Set of Byte;
begin  
  Randomize; // --> das sollte ins FormCreate()!
  LastXY := []; // nix ausgewählt
  repeat  
    x := Random(rows-1)+1;  
    y := Random(rows-1)+1;  
    if ( (StringGrid1.Cells[x,y] = '') // noch nicht gespielt
        and
         (NOT (x in LastXY)) and (NOT (y in LastXY)) // keine Mannschaften aus der letzten Auswahl
       ) then begin  
      StringGrid1.Cells[x,y] := 'Gespielt!';  
      MSpielplan.Lines.Add('Spieler'+IntToStr(x)+' gegen '+'Spieler'+IntToStr(y));  
      LastXY := [x,y];
    end;  
  until ( MSpielplan.Lines.Count
         =
          (StringGrid1.Colcount-1) * (StringGrid1.Rowcount-1) - (StringGrid1.Rowcount-1) );
  ShowMessage('Es gibt '+IntToStr(MSpielplan.Lines.Count)+' Partien');  
end;