veja o que eu fiz de errado.

Estou fazendo um sistema simples, nesse FORM tem 2 button, um que executa a função e outro que botei um SHOWMESSAGE('teste ok'); e peguei a POSIÇÃO desse segundo BUTTON, então fiz o seguinte programa.

Procedure SendMouseClick(x,y:Integer);
var
h:THandle;
begin
h := FindWindow(nil, 'TForm1');
SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(x,y));
sleep(10);
SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, MAKELPARAM(x,y));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMouseClick(1042,538);
end;

Acontece que eu clico e simplesmente não faz nada no meu FORM. O que posso estar errando ?