доброе время суток. есть два варианта записи:

code:

type
  TMD5Digest = record
    case Integer of
      0: (
        A: LongInt;
        B: LongInt;
        C: LongInt;
        D: LongInt
        );
      1: (
        V: array [0..15] of Byte
        );
  end;

[Quote] type TMD5Digest = record case Mode: Integer of 0: ( A: LongInt; B: LongInt; C: LongInt; D: LongInt ); 1: ( V: array [0..15] of B ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82362