var
 ac, readlen : integer;
begin
 FillChar( fRequest, REQUESTSIZE, 0 );
 ac := 0;
 repeat
   readlen := fSocketStream.Read( fRequest[ac],1024 );
   ac := ac+readlen;
 until ( readlen = 0 ) or ( ac = REQUESTSIZE );
end;

procedure ReadBufferEx(SocketStream:TWinSocketStream;var Buffer; Count: Longint);
var
 PBuffer:PByte;
 Readed:integer;
begin
 PBuffer:=@Buffer;
 while Count>0 do
 begin
   readed:=SocketStream.Read(PBuffer^,Count);
   Dec(Count,readed);
   Inc(PBuffer,readed);
 end;
end;

procedure TServerClientThreadEx.ClientExecute;
var
 SocketStream:TWinSocketStream;
 Packet:array[0..16] of byte;
 Packet2:array[0..2] of byte;
begin
 try
   SocketStream:=TWinSocketStream.Create(ClientSocket, 30);
   try
     while (not Terminated) and (ClientSocket.Connected) do
     begin
       if not SocketStream.WaitForData(SocketStream.TimeOut) then
        raise Exception.Create('Protocol: timeout');

       ReadBufferEx(SocketStream,Packet,SizeOf(Packet));
       LogServerEvents('Packet Readed');
       if ClientSocket.ReceiveLength<>0 then
         LogServerEvents('Packet fully Readed, but some socket data still avaliable... Error?');

       SetString(IMEI,Packet,SizeOf(Packet));
       ConnectToDb;
       try
         if DeviceInDB then
         begin
          if UpdateTime then
          begin
            CreatePackage;
            SendingMessage;
            if not SocketStream.WaitForData(SocketStream.TimeOut) then
              raise Exception.Create('Protocol: timeout');

            ReadBufferEx(SocketStream,Packet2,SizeOf(Packet2));
            LogServerEvents('Packet2 Readed');
            if ClientSocket.ReceiveLength<>0 then
              LogServerEvents('Packet2 fully Readed, but some socket data still avaliable... Error?');

            if Packet2[2]>=MessCount then
            begin
              SetUpUpdateTime;
              LogConnection(1);
            end else
            begin
              LogConnection(2);
            end;
          end else
          begin
            LogConnection(3);
          end;
         end else
         begin
          SendingMessageToNewDevice;
          LogConnection(4);
         end;
       finally
         DisconnectFromDb;
       end;
       LogServerEvents('We finish Protocol loop');
     end;
     LogServerEvents('We break IO loop');
   finally
     SocketStream.Free;
   end;
 except
   on e: exception do
     LogError('Error: '+e.Message);
 end;
end;