MidiHeader

type MidiHeader = record

  chHeaderChunk: array [0..3] of AnsiChar;

  case Boolean of

    True: (

        dwHeaderLength: Dword;

        wFormat: Word;

        wNumTracks: Word;

        wDivision: Word;

        vpAdditionalInformation_: ;

      );

    False: (

        ulHeaderLength: LongInt;

        usFormat: Integer;

        usNumTracks: Integer;

        usDivision: Integer;

        vpAdditionalInformation: Pointer;

      );

end;