procedure TryClick;
var
 H, S : THandle;
begin
 H:=FindWindow('TForm1', 'Form1');
 H:=FindWindowEx(H, 0, 'TButton', 'Button1');
 if H<>0 then begin
   S:=GetWindowLong(H, GWL_STYLE);
   if S and WS_DISABLED = 0 then begin
     MessageBox(hWnd, 'Кнопка активна! Нажимаем...', '', 0);
     SendMessage(H, BM_CLICK, 0, 0);
   end else MessageBox(hWnd, 'Кнопка неактивна!', '', 0);
 end;
end;