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

附件是整个程序：
代码：
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编辑过]

unit DblPxyTcp;这个无法编译啊
if FSSL.SSLEnabled then//你原来是sslenabled无法编译，我估计你是要调用TTCPBlockSocket ，FSSL的属性，但是它是只读的，可能我用的 synapse不知道是不是和你差别很大哈
if FLastError = 0 then
SSLDoConnect
else
begin
x := FLastError;
FSSL.SSLEnabled := False;//只读属性不能赋值
FLastError := x;
end;