Listbox runterzählen (GELÖST!)

[Diablo9876]

Hallo Leute,

Ich habe eine Listbox mit einträgen und möchte die mittels einen Button runterzählen bis Listbox1.items.count -1 (Manuell also, NICHT For i:=0 ....)

Also jedesmal wenn ich den Button klicke mus die Listbox eine Zeile tiefer gehen und die Zeile selectieren.
Wie mach ich das.

procedure TForm1.Button6Click(Sender: TObject);
var
begin
if edit3.Text = '' then
listbox1.ItemIndex := listbox1.ItemIndex + 1;
end;

Aber irgendwie bleibt er danach auf die Zeile stehen und läuft nicht weiter.