1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function GUIDtoString(guid : TGUID):String;
begin
  result :=
    '{'+inttohex(guid.d1,8)+'-'
    +inttohex(guid.d2,4)+'-'
    +inttohex(guid.d3,4)+'-'
    +inttohex(guid.d4[0],2)+inttohex(guid.d4[1],2)+'-'
    +inttohex(guid.d4[2],2)+inttohex(guid.d4[3],2)+inttohex(guid.d4[4],2)
    +inttohex(guid.d4[5],2)+inttohex(guid.d4[6],2)+inttohex(guid.d4[7],2)
    +'}';
end;