WinDowse ( ) .
, , x, y
Procedure PressButtonXY(handleWnd : HWND;X,Y : Integer); //X,Y are relative to the client area, you can use ScreenToClient to obtain this.
var
LParam : Integer;
begin
LParam := MakeLong(X, Y);
PostMessage(handleWnd, WM_LBUTTONDOWN, MK_LBUTTON, LParam);
PostMessage(handleWnd, WM_LBUTTONUP, MK_LBUTTON, LParam);
end;