имитация мышки?

procedure click;
begin
  Button1.Click;
  Button2.Click;
  Button3.Click;
end;

//Процедура, которая эмулирует щелчёк (нажатие + отжатие) левой кнопки мыши
//по координатам (X;Y). Координаты (X;Y) - это локальные координаты целевого окна.
//aHWindow - хэндлер целевого окна.
procedure ClickByWindow(aHWindow : HWND; aX : Word; aY : Word);
var
  //Координаты мыши.
  //В двух младших байтах должна быть записана координата X.
  //В двух старших байтах должна быть записана координата Y.
  Coordinates : Longword;
begin
  Coordinates := 0;
  Coordinates := aX or (aY shl 16);
  //Эмуляция нажатия левой кнопки мыши.
  SendMessage(aHWindow, WM_LBUTTONDOWN, MK_LBUTTON, Coordinates);
  //Эмуляция отжатия левой кнопки мыши.
  SendMessage(aHWindow, WM_LBUTTONUP, MK_LBUTTON, Coordinates);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
ClickByWindow (416,156);<---------- ругается на это
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 
    procedure ClickByWindow(aHWindow : HWND; aX : Word; aY : Word);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
//Хэндлер - это системный идентификатор ресурса. По формату совтместим с типом Longword.
 
//Процедура, которая эмулирует щелчёк (нажатие + отжатие) левой кнопки мыши
//по координатам (X;Y). Координаты (X;Y) - это локальные координаты целевого окна.
//aHWindow - хэндлер целевого окна.
procedure TForm1.ClickByWindow(aHWindow : HWND; aX : Word; aY : Word);
var
  //Координаты мыши.
  //В двух младших байтах должна быть записана координата X.
  //В двух старших байтах должна быть записана координата Y.
  Coordinates : Longword;
begin
  Coordinates := 0;
  Coordinates := aX or (aY shl 16);
 
  //Нажатие левой кнопки мыши.
  SendMessage(aHWindow, WM_LBUTTONDOWN, MK_LBUTTON, Coordinates);
  //Отжатие левой кнопки мыши.
  SendMessage(aHWindow, WM_LBUTTONUP, MK_LBUTTON, Coordinates);
 
  //Нажатие правой кнопки мыши.
  //SendMessage(aHWindow, WM_RBUTTONDOWN, MK_RBUTTON, Coordinates);
  //Отжатие правой кнопки мыши.
  //SendMessage(aHWindow, WM_LBUTTONUP, MK_RBUTTON, Coordinates);
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  //Хэндлер главного окна.
  hWindowParent : HWND;
  //Хэндлер дочернего окна.
  hWindowChild : HWND;
begin
  hWindowParent := 0;
  hWindowChild := 0;
 
  //Ищем главное окно Интернет Эксплорера.
 
  hWindowParent := FindWindow('IEFrame', 'Пустая страница - Windows Internet Explorer');
  //Можно искать без указания класса - только по имени:
  //hWindowParent := FindWindow(0, 'Пустая страница - Windows Internet Explorer');
  //Так же можно искать без указания имени - только по имени класса:
  //hWindowParent := FindWindow('IEFrame', 0);
  //Чтобы посмотреть какие имена классов используются, можно воспользоваться приложением
  //WinSight - из дистрибутива Delphi.
 
  if hWindowParent <> 0 then begin
    ShowMessage('Главное окно найдено: hWindowParent = "' + IntToStr(hWindowParent) + '"');
  end else begin
    ShowMessage('Главное окно не найдено"');
    Exit;
  end;
 
  //Для проверки можно проследить за реакцией:
 
  //Свернуть окно.
  SendMessage(hWindowParent, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  //Задержка в 1 секунду.
  Sleep(1000);
  //Развернуть окно.
  SendMessage(hWindowParent, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
 
  //Ищем дочернее окно, которое представляет закладку (в ИЕ 7 или ИЕ 8)
 
  hWindowChild := FindWindowEx(hWindowParent, 0, 'TabWindowClass', 'Пустая страница - Windows Internet Explorer');
  //Поиск окна дочернего элемента тоже можно выполнять поразному - искать только по имени класса или
  //только по имени окна.
 
  if hWindowParent <> 0 then begin
    ShowMessage('Дочернее окно найдено: hWindowChild = "' + IntToStr(hWindowChild) + '"');
  end else begin
    ShowMessage('Дочернее окно не найдено"');
    Exit;
  end;
 
  //Посылаем дочернему окну нужные сообщения
  ClickByWindow(hWindowChild, 200, 200);
end;
 
end.