delphi SocketConnection减小连接超时的时间

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左右就表示连接失败，这么改，才能减短它的连接超时时间呢？
[解决办法]
我的想法是另外起个进程接收连接程序发的消息，超过多少秒没收到就算断连，强行杀掉。