...
exports GetNewGUID name 'GETNEWGUID'   {Получить новый GUID - глобальный уникальный идентификатор};

{$R *.res}

function CoCreateGuid(out guid: TGUID): HResult; stdcall; external 'ole32.dll' name 'CoCreateGuid';

Function GetNewGUID:ShortString;
var newGuid:TGUID;
  AResult:HRESULT;
begin
  Result:='';
  AResult:=CoCreateGuid(newGuid);
  if AResult = S_OK then begin
    Result:=IntToHex(newGuid.D1,8)+'-'+IntToHex(newGuid.D2,4)+'-'+IntToHex(newGuid.D3,4)+'-'+
        IntToHex(newGuid.D4[0],2)+IntToHex(newGuid.D4[1],2)+'-';
    for AResult:=2 to 7 do Result:=Result+IntToHex(newGuid.D4[AResult],2);
  end;
end;



end.