Länge eines Strings in der Listbox ermitteln

[Cyberbob_at_tot]

Hallo zusammen,
ich will gerne die maximale länge von Strings in einer Listbox ermitteln,
dazu fülle ich eine Variable mit dem Anfangswert, die Länge des ersten eintrags und beim zweiten durchlauf kontroliere ich ob die länge größer ist wenn ja ersetzen sonst nicht!

Nur es läuft nicht

Habe dieses in einer Schleife die die Listbox füllt, die anzahl der einträge sind immer unterschiedlich! Ich habe erkannt das er den Itemindext wärend der schleife nicht ändernt, kann das sein?

Delphi-Quellcode:

For l:= 0 to Listbox1.Itemindex+1 do begin
If max< Listbox1.Canvas.TextWidth(Listbox1.Items[Item[l]] Then Max:=Listbox1.Canvas.TextWitdh(Listbox1.Items[Item[l]];
end;

Leider nimmt er immer nur einen wert der aber nicht der größte ist!

Was meint ihr dazu ?

MFG
Cyberbob