TGuid

type TGuid = packed record

  case Integer of

    1: (

        Data1: DWord;

First 4 bytes of GUID

        Data2: Word;

Bytes 5 and 6 of GUID

        Data3: Word;

Bytes 7 and 8 of GUID

        Data4: array [0..7] of Byte;

Bytes 9-17 of GUID

      );

    2: (

        D1: DWord;

First 4 bytes of GUID

        D2: Word;

Bytes 5 and 6 of GUID

        D3: Word;

Bytes 7 and 8 of GUID

        D4: array [0..7] of Byte;

Bytes 9-17 of GUID

      );

end;