procedure TMF.A;
var
  wnd: integer;
  R: TRect;
  MyMouse: TPoint;
begin               {
  wnd := FindWindow('ApplicationFrameInputSinkWindow', nil);
  GetCursorPos(MyMouse);
  GetWindowRect(wnd, R);

  SetCursorPos(r.Left + 50, r.Top + 50);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0 , 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); 
  SetCursorPos(MyMouse.X, MyMouse.Y);  
end;

  SendMessage (Wnd,WM_MOUSEMOVE,0, MAKELPARAM(16, 17));
  SendMessage(Wnd, WM_LBUTTONDOWN, 0, 0);
  SendMessage(Wnd, WM_LBUTTONUP, 0, 0);