Werte vergleichen, warum geht immer nur der letzte Eintrag??

[MisterNiceGuy]

Hi ich sitz immernoch an meinem Präsentationsprogramm. Im Moment habe ich das Problem, dass
ich Textobjekte aus einer Liste zeichnen will und diese per MouseOver des Image auf dem sie platziert sind erkannt werden sollen.
Ich nutze hierzu folgenden Quelltext:

Delphi-Quellcode:

 if speedbutton5.Down then
   begin
     for i:=1 to listview1.Items.Count do
       begin
         if (listview1.Items.Item[i-1].SubItems[0] < inttostr(X))
         AND (listview1.Items.Item[i-1].SubItems[1] < inttostr(Y))
         AND (listview1.Items.Item[i-1].SubItems[2] > inttostr(X))
         AND (listview1.Items.Item[i-1].SubItems[3] > inttostr(y))
           then image1.Cursor := crSizeall
           else image1.Cursor := crdefault;
       end;
   end;

Leider erkennt das Programm immer nur den letzten Eintrag!!
Damit ihr selber sehen könnt, was da falsch läuft hab ich die Exe kurz mit angehängt.