type
  Int12 = -2047..2048;
  Int24 = -8388608..8388607;
  RawInt24 = Array [0..2] of Byte;

  TSample8     = packed Record
    L: ShortInt;
    R: ShortInt;
  end;
  TSample12    = packed Record
    L: Int12;
    R: Int12;
  end;
  TSample16    = packed Record
    L: SmallInt;
    R: SmallInt;
  end;
  TSample24    = packed Record
    L: Int24;
    R: Int24;
  end;
  TRawSample24 = packed Record
    L: RawInt24;
    R: RawInt24;
  end;
  TSample32    = packed Record
    L: Integer;
    R: Integer;
  end;

  TWaveContent8     = packed Array of TSample8;
  TWaveContent12    = packed Array of TSample12;
  TRawWaveContent12 = packed Array of Byte;
  TWaveContent16    = packed Array of TSample16;
  TWaveContent24    = packed Array of TSample24;
  TRawWaveContent24 = packed Array of TRawSample24;
  TWaveContent32    = packed Array of TSample32;

  TRIFFHeader = packed record
    ID: Array[0..3] of Char;
    Length: DWORD;
    WaveID: Array[0..3] of Char;
  end;
  TFormatHeader = packed record
    ID: Array[0..3] of Char;
    Length: DWORD;
    FormatTag: WORD;
    Channels: WORD;
    SampleRate: DWORD;
    ByteRate: DWORD;
    BlockAlign: WORD;
    BitResolution: WORD;
  end;
  TDataHeader = packed record
    ID: Array[0..3] of Char;
    Length: DWORD;
  end;
  TWaveHeader = packed record
    RIFF: TRIFFHeader;
    Format: TFormatHeader;
    Data: TDataHeader;
  end;