procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  P: TPoint;
begin
  P := ListView1.ViewOrigin;
  P.X := P.X + X;
  P.Y := P.Y + Y;
  Caption := Format('[%d; %d]', [P.X, P.Y]);
end;