文字列GlobalAddAtom、GlobalGetAtomNameやり方を送信することにより、

ユニットUnit1は、

インタフェースが

使用する
  Windowsの、メッセージ、sysutilsの、バリアント、クラス、グラフィックス、コントロール、フォーム、
  ダイアログ、StdCtrls; 

CONST 
  MW_MYMSG = WM_USER + 1 。

入力
  TFormFF = クラス（TFormは）
    EDIT1：TEDITと、
    ボタン1：TButtonの。
    手続きButton1Click（送信者：TObjectを）;
  プライベート
    { プライベート宣言} 
  公共
    { 公開宣言} 
    手順 WmMyMsg（VARメッセージ：TMessage）; メッセージMW_MYMSG。
  エンド;

VaRの
  FormFF：TFormFF。

実装

{ $のR * .DFM } 

手順TFormFF.Button1Click（送信者：TObjectを）。
VaRの
  wParamに：ワード。
開始
  // 创建原子 
  のwParam：= GlobalAddAtom（' ENG汉字' ）;
  // 发送 
  のPostMessage（ハンドルMW_MYMSG、wParamに、0 ）
 終了。

手順 TFormFF.WmMyMsg（VAR メッセージ：TMessage）;
VaRの
  A：配列 [ 0 .. 254 ] のチャー。
  WA：ワード。
  CMD：文字列;
 始める
  // 原子の名前を取得 
  GlobalGetAtomName（msg.wParam、@a、255 ）;
   // 解放システムリソース
  DeleteAtom（WA）; 
  Edit1.Text： = A;
 エンド; 

エンド。