Сформировать GUID

function GenerateGUID: string;
var
S: string[36];
P: PChar;

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

begin
Result := Copy(CreateClassID, 2, 36);
end;