Listbox runterzählen (GELÖST!)

[Diablo9876]

Funzt leider nicht chris01.

Mein Code als Hilfe:

procedure TForm1.Button6Click(Sender: TObject);
var
i:integer;
begin
for i:= 0 to listbox1.items.Count -1 do
listbox1.selected[i]:=true;
if edit3.Text = '' then
listbox1.ItemIndex := listbox1.ItemIndex + 1;
end;