TMDContext

type TMDContext = record

  Version: TMDVersion;

  Hash: TMDHashFunc;

  Align: PtrUInt;

  State: array [0..3] of Cardinal;

  BufCnt: QWord;

  Buffer: array [0..63] of Byte;

  case Integer of

    0: (

        Length: QWord;

      );

    1: (

        Checksum: array [0..15] of Byte;

      );

end;