1,function CreateClassID: string;
var
ClassID: TCLSID;
P: PWideChar;
begin
CoCreateGuid(ClassID);
StringFromCLSID(ClassID, P);
Result := P;
CoTaskMemFree(P);
end;
2,
function TFrmCar_AddCar.CreateCar_UUID: string;
var
TempUUID:TGuid;
begin
CreateGuid(TempUUID);
Result:=GuidToString(TempUUID);
end;