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