[Thrasher]

Используй функции перемещения и клика мышки.

Код:

procedure MouseClick(pT: TPoint; BackCursor: boolean = True);

// Переводим экранные координаты к принятым в mouse_event
function ScreenToAbsolute(const pT: TPoint): TPoint;
begin
Result.x := Round(pT.x * 65535 / Screen.Width);
Result.y := Round(pT.y * 65535 / Screen.Height);
end;

var
oldpt: TPoint;
begin
if BackCursor then
oldpt := ScreenToAbsolute(mouse.CursorPos);
pt := ScreenToAbsolute(pt);
{Переместим курсор мыши}
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);
if BackCursor then
{Перемещаем кнопку мыши обратно}
Mouse_Event(MouseEventf_Absolute or MouseEventf_Move, oldpt.x, oldpt.y, 0, 0);
end;