TGuid

type TGuid = packed record

public

  class operator equal(TGUID,TGUID):Boolean();

  class operator notequal(TGUID,TGUID):Boolean();

  class function Empty;

  class function Create();

  function IsEmpty;

  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;