procedure TMouseCoordinateHelperFrm.Button1Click(Sender: TObject);
begin
  //SetCursor(hCursor);
  SetCapture(MouseCoordinateHelperFrm.Handle);
  Timer1.Enabled := True;
  Screen.Cursor := crCross;
  SetSystemCursor(LoadCursorFromFile(PChar('cross_rl.cur')), OCR_NORMAL);
  TargetEndFlg := True;
  //SendMessage(memo1.Handle,WM_PASTE,0,0);
end;