Random-Frage

[cruso]

Eine Frage? Warum endet folgender Code in einer Endlisschleige und wie wäre es richtig?

Delphi-Quellcode:

  x:=Form1.ListBox1.Items.Count;
  //----
  if x>0 then begin
  Randomize;
  y:=StrToInt(Form3.Label1.Caption);
  z:=Random(x);
  if z=y then begin
  While (z=y) do begin
  z:=Random(x)
  end;
  Form3.Label1.Caption:=IntToStr(z);
  end else begin
  Form3.Label1.Caption:=IntToStr(z);
  end;
  end else z:=0;

Diese Frage hat sich erledigt! Da ich eine ListBox verwende muss es if x<0 heißen.