找出了以前做的简单例子，合成二个频率，单声道，44100Hz，16位，时间长度为10秒。
Type
TPCMWaveHeader = record
rID : array[0..3] of char;
{ 'RIFF' Identifier }
rLen : longint;
wID : array[0..3] of char;
{ 'WAVE' Identifier }
fId : array[0..3] of char;
{ 'fmt ' Identifier }
fLen : longint;
{ Fixed, must be 16 }
wFormatTag : word;
{ Fixed, must be 1 }
nChannels : word;
{ Mono=1, Stereo=2 }
nSamplesPerSec : longint;
{ SampleRate in Hertz }
nAvgBytesPerSec : longint;
nBlockAlign : word;
nBitsPerSample : word;
{ Resolution, e.g. 8 or 16 }
dId : array[0..3]of char;
{ 'data' Identifier }
dLen : longint;
{ Number of following data bytes }
end;
频率合成代码：
procedure TForm1.Button2Click(Sender: TObject);
var
h : TPCMWaveHeader;
f : file;
FileName : String;
i, DataBytes, SampleRate, Channels, Resolution : integer;
d: SmallInt;
delta1, delta2 :do
uble;
begin
FileName:='01.wav';
SampleRate:=44100;
delta1:= Freq1.Value * 3.1415926 * 2 / SampleRate;
delta2:= Freq2.Value * 3.1415926 * 2 / SampleRate;
DataBytes:=SampleRate*20;
Channels:=1;
Resolution :=16;
FillChar(h,SizeOf(TPCMWaveHeader),#0);
with hdo
begin
rID[0]:='R';
rID[1]:='I';
rID[2]:='F';
rID[3]:='F';
{ 1st identifier }
rLen:=DataBytes+36;
wID[0]:='W';
wID[1]:='A';
wID[2]:='V';
wID[3]:='E';
{ 2nd identifier }
fId[0]:='f';
fId[1]:='m';
fId[2]:='t';
fID[3]:=Chr($20);
{ 3rdidentifier ends with a space character }
fLen:=$10;
{ Fixed, must be 16 }
wFormatTag:=1;
{ Fixed, must be 1 }
nChannels:=Channels;
{ Channels }
nSamplesPerSec:=SampleRate;
{ Sample rate in Hertz }
nAvgBytesPerSec:=SampleRate*Channels*trunc(Resolution div 8);
nBlockAlign:=Channels*(Resolution div 8);
{ Byte order, see below }
nBitsPerSample:=Resolution;
dId[0]:='d';
dId[1]:='a';
dId[2]:='t';
dId[3]:='a';
{ Data identifier }
dLen:=DataBytes;
{ number of following data bytes }
end;
AssignFile(f,FileName);
ReWrite(f,1);
BlockWrite(f,h,SizeOf(h));
for i:=0 to databytes-1do
begin
d:=Trunc(8192 * sin (delta1 * i));
d:=d + Trunc(8192 * sin (delta2 * i));
BlockWrite(f,d,2);
end;
CloseFile(f);
end;
