關鍵詞：
ActiveX，Tguid，CocreateGuid，GuidtoString
// --- CONAN 2005/04/14的測試程序--- //
單位1;
介面
用途
Windows，Messages，Sysutils，變體，類，圖形，控件，表單，表單，
對話，
ActiveX，stdctrls;
類型
tform1 = class（tform）
Button 1：Tbutton；
過程button1Click（發件人：tobject）;
私人的
{私人聲明}
民眾
{公開聲明}
結尾;
var
form1：tform1;
執行
{$ r *.dfm}
過程tform1.button1Click（發件人：tobject）;
var
我：整數；
sguid：string;
tmpguid：tguid;
開始
對於我：= 0至10做
開始
如果cocreateguid（tmpguid）= s_ok，則
sguid：= guidtostring（tmpguid）
別的
ShowMessage（“創建GUID錯誤！”）;
ShowMessage（sguid）;
結尾;
結尾;
結尾。