procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
h : THintWindow;
r : TRect;
begin
with r do
begin
left := x;
top := y;
right := 0;
bottom := 0;
end;
h := THintWindow.Create( Self );
with h do
begin
ActivateHint( r, '' );
ReleaseHandle;
Free;
end;