procedure CheckServerSocketState();
var
   Read_Set   : TFDSet;
   Write_Set  : TFDSet;
   Error_Set  : TFDSet;
   ServerState:integer;
   nfds       : Integer;
begin
     if ClientsConnected<MaxClients then
     begin
     (*============================================================*)
               (*============================================================*)
               FD_ZERO(Read_Set);
               FD_SET(MainServer.SocketHandel ,Read_Set );

               FD_ZERO(Write_Set);
               FD_SET(MainServer.SocketHandel,Write_Set );

               FD_ZERO(Error_Set);
               FD_SET(MainServer.SocketHandel,Error_Set );

               
               (*============================================================*)
     if select(0 , @Read_Set , @Write_Set , @Error_Set ,nil)>0 then
     begin
          if Read_Set.fd_count>0 then
          begin
               AcceptClient;
          end;
     end;
     if ServerState=-1 then
        GetErrorDescription(GetLastError);
     //else

        // MessageBox(0,'select error','',0);

     (*============================================================*)
     end;
end;