1:
2:

unit1.ActivationMessage := RegisterWindowMessage(PChar(Unit1.MyGUID));
postMessage(HWND_BROADCAST, Unit1.ActivationMessage, 0, 0);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var ActivationMessage: Cardinal;

const MyGUID = '{77123298-61B8-45AB-8DD3-3691B6BFF36C}';

...

application.onmessage:=ApplicationEvents1Message;

...

procedure TForm1.ApplicationEvents1Message(var Msg: TMSG;var Handled: Boolean);
begin
 if (Msg.message = ActivationMessage) then
  begin
    showmessage('da haben wir die sch***');//dieser
    Application.Restore;                    //ganze 
    SetForegroundWindow(Handle);            //Spaß wird
    Handled := true;                        //viermal abgearbeitet
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure tform1.nachrich(var nachricht:tmsg;var handled:boolean);
begin
if nachricht.message=1009 then
   begin
   showmessage('nachricht erhalten');
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
postmessage(HWND_BROADCAST,1009, 0,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:=nachrich;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure tform1.nachrich(var nachricht:tmsg;var handled:boolean);
begin
if nachricht.message=1009 then
   begin
   showmessage('nachricht erhalten');
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  ...
  //das im Constructor
  FControl := Control; //Control speichern
  FDefWindowProc := FControl.WindowProc; //Orginale WindowProc speichern
  FControl.WindowProc := WndProc; //eigene WindowProc zuweisen
  ...
  procedure TMyClass.WndProc(var Message: TMessage);
  begin
    //Messages verarbeiten
    ...
    //Orginale WinProc aufrufen
    FWindowProc(Message, FDefWindowProc);
  end;