"Application.OnMessage" wird 30x hintereinander ausgelöst???

[Schucki]

Hi Leute,

ich habe folgendes Problem...
Ich möchte gerne 2 Anwendungen untereinander kommunizieren lassen.
Dies möchte ich mit Messages realisieren.

HCWM_SET wird mit RegisterWindowMessage erstellt.

Funktioniere tu alles ganz ausgezeichnet nur wird meine
Nachricht um die 30x bearbeitet... 1x würde mir reichen.
Ich bekomme also 30x meine Meldung "SET-OK" aufgepopt...
Ich dachte Handled auf True setzen sagt... "behandelt" !?

Wie macht man das nun richtig?

Code:

...
  protected
    procedure MyMessage(var Msg:TMsg; var Handled:Boolean);
...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=MyMessage;
end;

procedure TForm1.MyMessage(var Msg:TMsg; var Handled:Boolean);
begin
  if Msg.message=HCWM_SET then begin
    ShowMessage('SET-OK');   
    Handled:=True;
  end;
end;

Vielen Dank für die Hilfe... Schuki...