ListBox auslesen

[Matze]

Meins könnte man auch so schreiben.

Delphi-Quellcode:

var i: integer;
...
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Label1.Caption:=ListBox1.Items[i]; 
  inc(i);

  //fals wiederholt werden soll:
  if i=ListBox1.Count then i:=0;
end;