BCB6 TServerSocket 元件注意事項

常會發生 Asynchronou Socket Error #1000xxx

解決方式如下：
 一、將相關的程式碼用 try catch 包起來，以免出現 Exception 程式就卡住
二、將 ErrorCode 清掉，並關閉 Socket

void __fastcall TForm1::ServerSocket1ClientError(TObject *Sender, TCustomWinSocket *Socket,
TErrorEvent ErrorEvent, int &ErrorCode)
{
 //分析錯誤
 ErrorCode=0;
 Socket->Close();
}