キーワード：
ActiveX、TGUID、COCREATEGUID、GUIDTOSTRING
// ---コナン2005/04/14によるテストプログラム--- //
ユニットユニット1;
インタフェース
用途
窓、メッセージ、sysutils、バリアント、クラス、グラフィック、コントロール、フォーム、
ダイアログ、
Activex、stdctrls;
タイプ
tform1 = class（tform）
Button1：Tbutton;
手順button1click（sender：tobject）;
プライベート
{プライベート宣言}
公共
{公開宣言}
終わり;
var
form1：tform1;
実装
{$ r *.dfm}
手順tform1.button1click（sender：tobject）;
var
I：整数;
SGUID：文字列;
TMPGUID：TGUID;
始める
i：= 0〜10の場合
始める
cocreateguid（tmpguid）= s_okの場合
sguid：= guidtostring（tmpguid）
それ以外
showmessage（ 'GUIDエラーを作成！'）;
showmessage（sguid）;
終わり;
終わり;
終わり。