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, lembrando que preciso usar o SENDMESSAGE para o CURSOR do MOUSE não mover na tela, 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?