void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,

      TCustomWinSocket *Socket)

{

        int CurrentLocation=0,counter=0;

        int NumSym=0,i,o;

        AnsiString CurrName="";

        for(i=0;i<MaxConnections;i++) //MaxConnections - константа содержащая максимальное число соединений с клиентами

                {

                if((Connections[i].Socket==Socket) && (Connections[i].Connected==true))

                        {

                        if(Connections[i].Login!="")

                                {

                                Memo1->Lines->Add(Connections[i].Login+" disconnected");

                                CurrName=Connections[i].Login;

                                CurrName=CurrName.Trim();

                                }

                        else

                                Memo1->Lines->Add("Non logined client disconnected");

                        Connections[i].Connected=false;

                        Connections[i].Autorize=false;

                        for(o=0;o<BufferLength;o++)

                                Connections[i].SendBuffer[o]="";

                        Connections[i].BufferCounter=0;

                        Connections[i].Idle=0;

                        Form1->StatisticMonitor->Values["CurrentConnection"]=IntToStr(StrToInt(Form1->StatisticMonitor->Values["CurrentConnection"])-1);

                        break;

                        };

                };

}