socket阻塞模式问题

Question

在GetThread函数里面创建TServerClientThread类的时候不定期的发生错误，请问大师们指点
procedure TfrmRecvXML.RecvSvrSktGetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
var
  myt: TdealThread;
  //TdealThread继承TServerClientThread
begin
  try
    myt := TdealThread.Create(false, ClientSocket);
    myt.thr := ClientSocket;
    SocketThread := myt;
  except
    On E : Exception do begin
      mmLog.lines.add(E.Message);
      PostMessage(self.handle, WM_REV, 0, 0);
    end ;
  end;
end;

Answer 1

发生什么错误?改成这样试试:
procedure TfrmRecvXML.RecvSvrSktGetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
var
myt: TdealThread;
//TdealThread继承TServerClientThread
begin
try
myt := TdealThread.Create(true, ClientSocket);
myt.thr := ClientSocket;
SocketThread := myt;
myt.resume;
except
On E : Exception do 
begin
mmLog.lines.add(E.Message);
PostMessage(self.handle, WM_REV, 0, 0);
end ;
end;
end;

Answer 2

=在传输文件的时候，文件数量很大，
有可能在创建TServerClientThread
时候出现错误。

Answer 3

传输文件也是在一个线程中传输,不会影响到创建TServerClientThread的