Random?

[himitsu]

Und so:

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    Randomize;
  End;

Procedure TForm1.Random;
  Begin
    DBListBox1.ItemIndex := Random(DBListBox1.Items.Count);
    varia := DBListBox1.Items[DBListBox1.ItemIndex];
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif