Random?

[Killer]

Hi ich hab ein Problem mit dem Zufallsgenerator. Und zwar gehts drum, dass ich bei jedem Aufruf der Funktion einen anderen Wert haben möchte. Mein Quellcode:

Delphi-Quellcode:

procedure TForm1.Random;
begin
 Randomize;
 DBListBox1.ItemIndex := RandomRange(0,DBListBox1.Items.Count-1);
 varia := DBListBox1.Items[DBListBox1.ItemIndex];
end;

Zur Erklärung: varia ist eine lokale Stringvariable, in den ich den selektierten Wert der ListBox hineinkopiere, um ihn weiterzuverwenden. Naja nur kommt halt jedes mal der gleiche Wert raus. Wieso???