WM_LBUTTONDOWN: begin
            Pt:= TMouseDownPt(Msg.lParam);
            HTI.pt.x := Pt.X;
            HTI.pt.y := Pt.Y;
            Sender.Perform( LVM_SUBITEMHITTEST, 0, Integer( @HTI ) );
            if HTI.iItem <> -1 then
            begin
              NewLine := HTI.iItem;
              NewCurIdx := HTI.iSubItem;
            end;               
            EscCell(NewLine, fControl);
         end;