Delphi中动态生成GUID的函数是什么?(200分)

用Crtl+Shift+G可以生成一个GUID，但如果想在程序运行
过程中动态生成GUID该调用哪个函数?
另外，在GUIDToString中，参数该用什么形式给出？
除了GUIDToString()外，还有哪些处理GUID的函数？
多谢大侠指点！

CreateClassID generates a new GUID and returns it as a string.

Unit

ComObj

Category

COM utilities

function CreateClassID: string;

Description

Use CreateClassID to create a new GUID and access it as a string.
A demo of the CreateClassID function is available in the Demos area.

或者
function CreateClassID: string;
var
ClassID: TCLSID;
P: PWideChar;
begin
CoCreateGuid(ClassID);
StringFromCLSID(ClassID, P);
Result := P;
CoTaskMemFree(P);
end;


-----
http://www.8421.org

以上用到的API包含在哪个单元文件里？我编译总通不过。

uses
ComObj, ActiveX;

procedure TForm1.BtnNewClick(Sender: TObject);
var
ID: TGUID;
S: string;
begin
if CoCreateGuid (Id) = s_OK then
begin
s := GUIDToString (Id);
Memo1.Lines.Add (S);
end;
end;

谢谢二位！