ErrorCode가 10053 인 경우가 바로 클라이언트가 비정상 종료가 발생되어서 생기는
에러코드 입니다. 왜 클라이언트가 비정상 적으로 끊기는지는 모르겠지만..

저도 비슷한 프로그램을 만든적이 있는데, 클라이언트에서는 약 10초마다
서버에 접속을 요구합니다.(연결이 되어있다면.. 연결 타이머를 false 시킵니다)
서버쪽에서, 클라이언트의 비정상 종료시에 해당 client 소켓을 close시키시나요?

참고로, 제가 예전에 작성했던, 코드를 올립니다

//------------------------------------------------------------//
// Client 쪽  - 서버에 접속 시도
//------------------------------------------------------------//
procedure Tfrm_main.Login_TimerTimer(Sender: TObject);
begin
  Login_Timer.Enabled := False;
  AttemptConnect;
end;
Procedure Tfrm_main.AttemptConnect;
begin
  if ClientComm.ConnectionState = Connected then Exit;
  if ClientComm.ConnectionState = Closed    then Exit;

  ClientComm.Start(ServerIp, 9000, MyMacAddress); {서버에 접속 시도}
end;


//----------------------------------------------------------------------//
// 서버 쪽 -  TServerComm - ServerSocket 이벤트
//----------------------------------------------------------------------//
Procedure TServerComm._OnAccept(Sender: TObject;Socket: TCustomWinSocket);
begin
  Display_EVENT_MSG(Socket.RemoteAddress + ' ' + LoginMsg, 0);
end;
Procedure TServerComm._OnClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Display_EVENT_MSG(Socket.RemoteAddress + ' ' + LogoffMsg, 1);
end;
Procedure TServerComm._OnClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;  var ErrorCode: Integer);
begin
  ErrorCode := 0;
  Socket.Close;
end;

먼저 답변감사드립니다 (__)

올려주신 예제대로는 아니지만 에러가 발생하면

ServerSocket1.sockett.active := false;

이런식으로 소켓닫아주구요

5초뒤에 다시

ServerSocket1.socket.active := True;

이런식으로 Open 하고 있습니다

Socket.close 랑 같은 동작은 하는걸로 아는데 아닌가여?

다시 한번 답변 감사드립니다. (__)

참.. 그리고 클라이언트 프로세스를 죽였다가 살리면

또 바로 접속이 되거든여.. 흠냐..

Do it!

  [  Socket.close  ]