Envois et Réception de Messages Windows

Dans cet exemple on veut intercepter un message indexé 1222.

Pour envoyer ce message on peut utiliser : PostMessage(Application.MainForm.Handle,1222,0,0);

 TMainForm = class(TForm)
  ...
  private
    procedure TestMSG(var Message:TMessage);message 1222;
    ...
  public
  end;  
 
  ...
  ...
 
procedure TMainForm.TestMSG(var Message: TMessage);
begin
  DebugLn('Reçu Message 1222');
end;