Also, irgendwie alles ein bißchen seltsam,
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
zaehler:=0;
end;
Die Deklaration von Zaehler finde ich nicht, gut vieleicht übersehen. Aber wenn Du Zahler auf 0 setzen tust, im OnShow, was passiert den mit Zaehler nach der Funktion. Vieleicht solltest Du das erstmal so umbauen...
Delphi-Quellcode:
for I := 0 to Listbox1.Count - 1 do
begin
..
Dann i als Lokal deklariert...
Gruß Jens