ＯＲＣＡ ＣＬＡＩＭでＵＩＤが，あちこちで必須みたい
Delphiで，どげんして，取るっちゃろ？って思ったら，あっさり，できましたわぁ～
CreateClassID関数ですわ
サンプル，書いておきますです （ComObjはusesしてね！！）
DELPHI:
- uses ComObj;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- label1.Caption := CreateClassID;
- end;