delphiz中创建guid

function createfguid: string ;
var
  v_guid:TGUID;
  v_fguid:string;
begin
    CreateGuid(v_guid);
    v_fguid:=GUIDToString(v_guid);
    v_fguid:=StringReplace(v_fguid,'-','',[rfReplaceAll]);
    v_fguid:=Copy(v_fguid,2,32);
    Result:=v_fguid;
end;