So! Also mein Problem ist gelöst! Jetzt kommt nie 2mal die gleiche Zahl direkt hintereinander:
Delphi-Quellcode:
//...
x:=Form1.ListBox1.Items.Count;
//----
Randomize;
y:=StrToInt(Label1.Caption);
z:=Random(x);
if z=y then begin
While (z=y) do begin
z:=Random(x)
end;
Label1.Caption:=IntToStr(z);
end else begin
Label1.Caption:=IntToStr(z);
end;
Ist zwar net die feinste Art aber an statt des Labels könnte man es auch in ner Datei abspeichern.