Random und if Abfrage

[citybreaker]

Fragen in ListBox Laden

Delphi-Quellcode:

procedure TMainFrm.FormShow(Sender: TObject);
begin
  // Fragen auflisten
  Ini := TIniFile.Create('C:\fragen.ini');
   Ini.ReadSections(ListBox.Items);
  Ini.Free;
end;

procedure TForm1.Button1.Click(Sender: TObject);
var zufall: integer;
begin
  // Zufalls Frage Nummer 1
  randomize;
  zufall := random(ListBox.Items.Count) + 1; 
end;

So unter dem zufall := random .... folgt dann mein Problem.

--- Edit ---
Die ListBox ist übrigens unsichtbar damit man sich die Fragen
nicht aussucht.