Willkommen im Forum!
Dein Counter dürfte zu hoch sein. Zeig uns mal den vollen Code.
EDIT:
Wenn Counter = ListBox1.Items.Count, dann musst du
while i < counter do
verwenden. Alternativ geht auch
for i := 0 to ListBox1.Items.Count - 1 do
. Letztere Variante ist eigentlich gebräuchlich.
EDIT:
Um Code zu posten, kannst du die [ DELPHI] [ /DELPHI] Tags verwenden