ListBox auslesen

[Matze]

Ich hatte i global deklariert (sieht man am Code).

also, es geht so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=ListBox1.Items[i];
  if i<ListBox1.Count-1 then inc(i);
end;

oder so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=ListBox1.Items[i];
  inc(i);
  if i=ListBox1.Count then Timer1.Enabled:=false;
end;