TGUID = packed record
  D1: LongWord;
  D2: Word;
  D3: Word;
  D4: array[0..7] of Byte;
end;

struct TGUID {
  LongWord D1;
  Word D2;
  Word D3;
  array[0..7] of Byte D4;
};