[angvelem]

И чего не понял?

Код:

    Channeles := Ch;
    SamplesPerSec := Freq;
    BitsPerSample := Bits;

Код:

TWaveHeader = record
    idRiff: array[0..3] of char;
    RiffLen: longint;
    idWave: array[0..3] of char;
    idFmt: array[0..3] of char;
    InfoLen: longint;
    WaveType: smallint;
    Ch: smallint;
    Freq: longint;
    BytesPerSec: longint;
    align: smallint;
    Bits: smallint;
  end;

Читается скорее всего через BlockRead.