Code wird nicht ausgeführt - warum? (erledigt, danke an Popov)

[Popov]

Was verstehst du unter "nicht ausgeführt" (sorry für den Fall, dass du es geschrieben hast und ich es übersehen habe)?

1. Das Programm startet, aber das Ergebnis ist falsch?
2. Das Programm bricht mit einer Fehlermeldung?
3. Das Programm startet überhaupt nicht?

//Edit

Wie passt if ItemGefunden(Item, i) then begin in die Funktion? Was macht es da? Item ist vom Typ TListItem. So wie ich das sehen, bewegst du die Maus über ListView und je nachdem von wo du es ausführst, führt es bei jeder Masusbewegung pro Pixel deine Funktion aus? Ist das korrekt?

In dem Codeteil aus der Funktion taucht Item nicht auf.