为什么ServerSocket从收到Accept到GetThread要等4秒之久(100分)

为什么ServerSocket从收到Accept到GetThread要等4秒之久
我的系统实时性很强，急死人了。
procedure TMyServerSocket.MyAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
frmmain.lbLog.Items.Add (DateTimeToStr(Now)+' 接受连接请求: ' +
Socket.RemoteHost + ' (' + Socket.RemoteAddress + ')');
Socket.Close;
end;
end;

procedure TMyServerSocket.MyGetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
begin
SocketThread := TServerThread.Create(False, ClientSocket);
end;

Socket.RemoteHost //它需要去解析地址成域名，慢的要死
==>
Socket.RemoteAddress

接受答案了.