ListBox auslesen

[Killer]

Hm aber mit dem Quelltext gibts noch Probleme.

Und zwar iss keine "Sperre" eingebaut, d.h. Delphi zählt per inc die Variable i immer weiter hoch und irgendwann kommt der Punkt, wo i größer ist als der ListBox.Count und dann kommt der Fehler!

Ich hab versucht, per while-Schleife eine Sperre einzubauen, hat nicht ganz funktioniert, hier der Code:

Delphi-Quellcode:

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

Hm hab scho wieder nen kleinen Fehler entdeckt und zwar das = vor ListBox1.Count aber wenn ich das wegmache, bleibt der Label1.Caption Eintrag nach ein paar Änderungen stehen. Komisch...