procedure _Click(wnd: HWND; caption: string);
var
  TheChildHandle: HWND;
begin
  TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
  SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
  SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;

использование:

procedure TForm1.Button1Click(Sender: TObject);
var
 h:HWND;
begin
 h:=FindWindow(nil,'Form1');
 _Click(h,'Enter');
end;

//Ищет окно с заголовком Form1 и нажимает в нем на кнопку с кепшном Enter =)