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

[Schucki]

Alles super...

nun mal eine Stufe tiefer angesetzt oder ?
Aber es soll mir recht sein...

Wichtig ist das es geht ohne 30x aufpopen...
Und es geht auch wenn es minimiert ist...

Ich danke Euch für die Infos!

Der Quelltext vom Empfänger...

Code:

procedure TForm1.WndProc(var Msg:TMessage);
var intAction,intAdd:integer;
begin
  if Msg.Msg=HCWM_GET then begin
    SchowMessage('SET-OK!');
  end;
  inherited WndProc(Msg);
end;

...und vom Sender...

Code:

SendMessage(HWND_BROADCAST,HCWM_GET,0,0);

Was noch interessant währe wie setzt man nun an wenn man nun nicht nur Zahlen übertragen möchte...
...sondern auch mal eine Zeichenkette ?

Gruß Schucki...