Listview.OnMouseMove löst AV aus, ich weiß nicht warum

[juergen]

Hallo zusammen,
bin nun schon einige Zeit zugange und finde das Problem einfach nicht.
Andere Fehler konnte ich beseitigen mit Assigned.
Ziel ist es, wenn die Maus den Itemindex wechselt innerhalb der 1. Spalte(!), soll eine andere Form geschlossen werden.
Sowie ich aber mit der Maus aus der ersten Spalte (caption!) in den Bereich einer anderen Spalte (SubItem[x]) komme, gibt es eine Zugriffsverletzung.
Im Moment verwende ich folgendes:

Delphi-Quellcode:

procedure TMain_Form.ListView1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  Item: TListItem;
begin
  Item := ListView1.GetItemAt(0, Y);
  if Assigned(item) then begin
    if ((ListView1.GetItemAt(X, Y).Index) <> (ListView1.ItemIndex)) then begin
      with Sender as TListView do begin
        if Assigned(Fotovorschau_am_Mauszeiger_Form) then begin
          Preview_Form.Close;
        end;
      end;
    end;
  end;
end;

Ich erkenne anscheinend das Problem nicht und weiß somit auch nicht wie ich reagieren muss.

Kann jemand das Problem erkennen?

Vielen Dank schon mal vorab!