Problem mit SendMessage

[any_key]

ahoihoi,
zur Zeit versuche ich aus meinem Programm einen Button in einem anderen Programm klicken zu lassen.
Um das Fenster zu finden hab ich FindWindowByTitle von swissdelphicenter.ch genutzt.
Das Finden des Fensters und des Buttons funktionieren.
Aber aus irgendeinem Grund wird in der Anwendung nur der Fokus auf den Button gesetzt, aber kein Klick ausgeführt.
Der Quelltext dazu sieht bisher so aus:

Code:

var
  wnd : Hwnd;
  s : string;
  btn : THandle;
begin
  wnd:= FindWindowByTitle('Test13');
    if wnd<>0 then begin
      btn := FindWindowEx(wnd,0,'TButton','Test12');
        if btn <> 0 then
          SendMessage(btn, BM_CLICK, 0, 0);
    end
    else
      ShowMessage('Fenster nicht gefunden');
end;

Wenn ich das auf ein Programm von mir anwende funktioniert das auch alles. Nur bei dem Programm bei dem ich den Button klicken will geht es halt nicht.
Den Namen des Buttons habe ich mit WinSpy ermittelt.
Da er ja fokussiert wird denke ich nicht, dass er nicht gefunden wird sondern, dass irgendetwas beim Senden des Klicks falsch ist.

Schon mal Danke für eure Antworten.
mfg any_key