API - criando mensagens personalizadas

// criando mensagens personalizadas

const

  WM_MINHA: WM_USER + 1;

type

  TForm1 = class(TForm)

public

  procedure ProcessaMinha(var Msg: TMessage);    message WM_MINHA;

end;

implementation

procedure TForm1.ProcessaMinha(var Msg: TMessage);

begin

  ShowMessage('OI!');

end;

// De outros programas:

 SendMessage(WM_MINHA, FindWindow('TForm1', nil), 0, 0);