Hallo,
das zufällige Auswählen eines ListBox-Items alle 10 Sekunden würde ich mit einem Timer (Interval = 10000) erledigen:
Delphi-Quellcode:
procedure TDemoForm.TimerExecute(Sender: TObject);
begin
with ListBox do
ItemIndex := Random(Count);
end;
Grüße vom marabu