procedure klickkor(korX:integer;korY:integer);  // p - пауза в секукндах var Pt: TPoint; begin Pt.x := korX; Pt.y := korY;   {Преобразуем Pt к координатам экрана}   Pt := ClientToScreen(Pt);   {Преобразуем Pt к "mickeys" (аболютным координатам курсора мышки}   Pt.x := Round(Pt.x * (65535 / Screen.Width));   Pt.y := Round(Pt.y * (65535 / Screen.Height));   {Переместим курсор мыши}   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);   {Имитируем нажатие левой кнопки мыши}   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);   {Имитируем отпускание левой кнопки мыши}   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); end;

Unit1.pas(225): Incompatible types: 'HWND' and 'TPoint