你可以用控件ApdTapiDevice1 很容易实现的，你可以看看下面的代码，，我已经做好了，
完全符合你的要求，，var
WaveFile:string;
begin
if CurrentState = StateDial then
begin
Label4.Caption := '建立连接';
CurrentState := StateDialing;
WaveFile:=WaveFileDir+'静音.wav';
try
ApdTapiDevice1.PlayWaveFile(WaveFile);
except
MessageDlg('播放文件错误:'+WaveFile,mtInformation, [mbOk], 0);
end;
end
else if CurrentState = StateAnswer then
begin
CurrentState := StateGreeting;
Label4.Caption := '播放问候语';
WaveFile:=combobox1.text;//选择播放的声音文件
if not fileexists(WaveFile) then WaveFile:=WaveFileDir+'静音.wav';
try
ApdTapiDevice1.PlayWaveFile(WaveFile);//waveFile是播放的声音文件的路径
except
MessageDlg('播放文件错误:'+WaveFile,mtInformation, [mbOk], 0);
end;
end
else
caption:=inttostr(currentstate);
end;
