algorythmus gesucht

procedure TForm1.Button1Click(Sender: TObject);
var
 lotto_array: Array[1..6] of Byte; //hier kommen die Lotto-Zahlen rein
 zahlen_liste: TStrings; //hier kommen alle Zahlen von 1 bis 49 rein
 i,j: Byte; //einfache Zählvariable ;) / Variable für den Zufallswert
begin
 Randomize; //Zufallsgenerator initialisieren...

 zahlen_liste := TStringList.Create; //Liste initialisieren
 for i := 1 to 49 do zahlen_liste.Add(IntToStr(i)); //Liste mit den Werten füllen

 for i := 1 to 6 do begin //Sechs mal das Folgende durchführen
 j := Random(zahlen_liste.Count-1); //in j eine zufällige Zahl aus dem Bereich der Liste setzen
 lotto_array[i] := StrToInt(zahlen_liste.Strings[j]); //den Wert in das Array schreiben
 zahlen_liste.Delete(j); //den Wert aus der Liste löschen (damit's ihn nicht mehrmals gibt)
 end;

 //FERTIG! In dem array "lotto_array" sind jetzt 6 Lotto-Zahlen, und es ist nich möglich, dass zwei gleiche dabei sind...
 ShowMessage(IntToStr(lotto_array[1])+', '+IntToStr(lotto_array[2])+', '+IntToStr(lotto_array[3])+', '+IntToStr(lotto_array[4])+', '+IntToStr(lotto_array[5])+', '+IntToStr(lotto_array[6]));
 //^^zeigt den Inhalt nochmal an ;)
end;