procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
cx,cy:Integer;
pnt:TPoint;
begin
pnt:=Point(x,y);
pnt:=ScreenToClient(Memo1.ClientToScreen(pnt));
cx:=pnt.x;
cy:=pnt.y;
end;