6 SWaveFileHeader = record
7 hdrRiff: array [0 .. 3] of AnsiChar;
9 hdrWave: array [0 .. 3] of AnsiChar;
13 hdrFmtData: array [0 .. 3] of AnsiChar;
14 sizeOfFmtData: LongWord;
17 tWaveFormatPcm = record
20 sampleParSec: LongWord;
21 bytesPerSec: LongWord;
23 bitsPerSample: SmallInt;
26 WrSWaveFileHeader = record
27 hdrRiff: array [0..3] of AnsiChar;
29 hdrWave: array [0..3] of AnsiChar;
30 hdrFmt: array [0..3] of AnsiChar;
32 stWaveFormat: tWaveFormatPCM;
33 hdrData: array [0..3] of AnsiChar;
38 samplePerSec: LongWord;
42 bytesPerSec: LongWord;
44 startpos, endpos: LongInt;