Da gibt es eigentlich nichts mehr zu vereinfachen/verbessern:
Delphi-Quellcode:
function CreateClassID: string;
var
ClassID: TCLSID;
P: PWideChar;
begin
CoCreateGuid(ClassID);
StringFromCLSID(ClassID, P);
Result := P;
CoTaskMemFree(P);
end;
Du könntest auch gleich
CoCreateGuid() verwenden und damit auf die Umwandlung in einen String verzichten.
Kommt immer drauf an, was man mit der
GUID machen möchte...