Симулировать нажатие МЫШКИ
	
procedure TForm1.Button1Click(Sender: TObject);
var  pt : TPoint;
begin
   Application.ProcessMessages;
   Screen.Cursor := CrHourglass;
   GetCursorPos(pt);
   SetCursorPos(pt.x + 10, pt.y + 10);
   Application.ProcessMessages;
   SetCursorPos(pt.x - 10, pt.y - 10);
end;