典型的难题，网上求助，查资料搞了N个星期，没有解决

Question

procedure TfrmDMClient.cstLinkError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);   
begin  
case ErrorEvent of  
    eeConnect:   
      Application.MessageBox(PChar('远程连接错误'+#13#10+'请尝试重新启动中间层和SCKTSRVR!'), '警告', MB_ICONSTOP);   
    eeSend:   
      Application.MessageBox(PChar('发送错误...'), '警告', MB_ICONSTOP);   
    eeReceive:   
      Application.MessageBox(PChar('接收错误...'), '警告', MB_ICONSTOP);   
    eeDisconnect:   
      Application.MessageBox(PChar('断开错误...'), '警告', MB_ICONSTOP);   
    eeLookup:   
      Application.MessageBox(PChar('查找错误...'), '警告', MB_ICONSTOP);   
end;   
ErrorCode:=0;   
end;   
procedure TfrmDMClient.cstLinkError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
case ErrorEvent of
    eeConnect:
      Application.MessageBox(PChar('远程连接错误'+#13#10+'请尝试重新启动中间层和SCKTSRVR!'), '警告', MB_ICONSTOP);
    eeSend:
      Application.MessageBox(PChar('发送错误...'), '警告', MB_ICONSTOP);
    eeReceive:
      Application.MessageBox(PChar('接收错误...'), '警告', MB_ICONSTOP);
    eeDisconnect:
      Application.MessageBox(PChar('断开错误...'), '警告', MB_ICONSTOP);
    eeLookup:
      Application.MessageBox(PChar('查找错误...'), '警告', MB_ICONSTOP);
end;
ErrorCode:=0;
end;
 
============================================
三层结构,广域网应用,本来已经定义了错误信息,刚开始使用的时侯,用户登录时正常没有问题,一段时间后,所有的用户每次登录都会出现"断开错误"的提示,但是点确定以后仍可以正常使用,只是中间层中没有出现用户登录信息,当用户退出时同样会出现"发送错误",但是可以正常退出，考虑可能是用户非正常退出导致的问题但是因为初学所以要如何修正这个问题