String.Grid- Schulprojekt

[svenbomwollen1704]

Hi!
Ich bin neu im Forum und möchte euch ersteinmal alle begrüßen!
Aber nun auch schon mein erstes Problem:

Delphi-Quellcode:

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,nummer:byte;
begin
   randomize;        //Zufallsgenerator initialisieren
   i:=0;
   repeat
      inc(i);
      repeat
         nummer:=random(8)+1;    //Zahl zwischen 1 und 8 würfeln
      until stringgrid1.cells[1,nummer]<>'';
      stringgrid1.cells[2,i]:=stringgrid1.cells[1,nummer];  //inSpalte 2 kopieren
      repeat nummer:=random(8)+1;
      until stringgrid1.cells[2,nummer]<>'';
      stringgrid1.cells[3,i]:=stringgrid1.cells[1,nummer];
      repeat nummer:=random(8)+1;
      until stringgrid1.cells[3,nummer]<>'';
      stringgrid1.cells[4,i]:=stringgrid1.cells[1,nummer];         
   until i=8;

end;

diesen Quelltext möchte ich nun so umgestalten das ich in jeder Spalte alle Zahlen vorfinde, zufällig angeordnet und keine doppelt. Mhh... und ich hab jetzt gerade keine Idee! Kann mir eventuell jemand helfen?
Danke!