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

      );

    3: (

        time_low: DWord;

low part of GUID timestamp

        time_mid: Word;

Middle part of GUID timestamp

        time_hi_and_version: Word;

High part of GUID timestamp and version

        clock_seq_hi_and_reserved: Byte;

High part of clock sequence of GUID

        clock_seq_low: Byte;

Low part of clock sequence of GUID

        node: array [0..5] of Byte;

Node part of GUID

      );

end;