DelphiでＧＵＩＤを取得する方法

ＯＲＣＡ　ＣＬＡＩＭでＵＩＤが，あちこちで必須みたい

Delphiで，どげんして，取るっちゃろ？って思ったら，あっさり，できましたわぁ～
CreateClassID関数ですわ
サンプル，書いておきますです　（ComObjはusesしてね！！）

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
begin

    label1.Caption := CreateClassID;
end;