[求助]IP电话 程序 有点小问题 各位进来帮小弟看一下

就是通话过程结束后，想挂机，可是按下挂机键，出现死机的现象，请各位高手帮忙改一下，谢谢了！ 急！！

附件是整个程序：
代码：
procedure TFormMain.BtStopClick(Sender: TObject);
begin
BtStop.Enabled := False;
CloseAudioIn;
CloseAudioOut;
if Assigned(Recv) then TerminateThread(Recv);
if Assigned(Send) then TerminateThread(Send);
if Assigned(Sock) then Sock.CloseSocket;
end;
我的邮箱： sunnycn2007@126.com
xiexie

[此贴子已经被作者于2007-6-17 2:06:38编辑过]