uses
  System.Messaging; // 追加

type
  /// メッセージの準備
  // 送受信したいメッセージのクラスを作ります。
  // System.Messaging内のTMessage<T>から派生させます。
  // 今回は単純にStringを受け渡したいと思います。

  TMessageString = TMessage<String>;

  TOwnsMessage = class(TComponent)
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure RecvMessage(const Sender: TObject; const M: TMessage);
    procedure SendMessage(const S: String);
  end;

constructor TOwnsMessage.Create(AOwner: TComponent);
begin
  /// メッセージ購読の準備
  // 
  // マネージャを呼び出す
  var manager := TMessageManager.DefaultManager;

  // 購読したいクラスと、メッセージが飛んできた時に呼び出してもらいたい
  // 手続きを指定します.(今回はRecvMessage)
  // この時、IDがSubscribeToMessageから帰ってきますが、私は使いませんでした.
  manager.SubscribeToMessage( TMessageString, RecvMessage );
end;

destructor TOwnsMessage.Destroy;
begin
  /// メッセージ購読の解除
  // 
  // マネージャを呼び出す
  var manager := TMessageManager.DefaultManager;

  // 購読解除したいクラスと、購読時に指定した手続きを指定します.
  manager.UnsubscribeToMessage( TMessageString, RecvMessage );
end;

procedure TOwnsMessage.RecvMessage(const Sender: TObject; const M: TMessage);
begin
  // メッセージが流れてきた時に呼び出されるので M を所望のクラスにキャストして使用します。
  ShowMessage( TMessageString( M ).Value );
end;

procedure TOwnsMessage.SendMessage(const S: String);
begin
  // メッセージを送信します。
  // マネージャを呼び出す.
  var manager := TMessageManager.DefaultManager;

  // メッセージ送信
  manager.SendMessage( Self, TMessageString.Create( S ) );
end;

  // 別スレッドからメインスレッドへ投げる時はSyncronizeを忘れずに..
  Synchronize( procedure
               begin
                 manager.SendMessage( Self, TMessageString.Create( s ) );
               end );