生成GUID

uses Comobj;

function GetGUID:string;
var
g:tguid;
begin
olecheck(createguid(g));
Result:=guidtostring(g);
end;