delphi SocketConnection减少连接超时的时间
我用SocketConnection连接服务器，如果服务器连接不成功的话就会有报错显示，代码如下：
begin
lcip := autocom_SOB.GetComputerForProgID('');
SocketConnection.address := lcip;
SocketConnection.Connected:=True;
end;
except
begin
MessageBox(Application.Handle,'后台数据库无法连接，请与网络管理员联系！','提示',MB_OK +MB_ICONSTOP);
Application.Terminate;
end;
end;


如果连接不成功的话会有假死或者等很长时间，我想减少它的连接超时时间，大概30S左右就表示连接失败，这么改，才能减短它的连接超时时间呢？
[解决办法]
我的想法是另外起个进程接收连接程序发的消息，超过多少秒没收到就算断连，强行杀掉。