mmMidiHeader

type mmMidiHeader = record

  case Boolean of

    True: (

        ulHeaderLength: LongInt;

        ulContentType: LongInt;

        ulMediaType: LongInt;

        midiheader: MidiHeader;

      );

    False: (

        dwHeaderLength: DWORD;

        dwContentType: DWORD;

        dwMediaType: DWORD;

        midiheader_: MidiHeader;

      );

end;