if  WSARecv(SOCKET_RECV, @fBufPtr, 1, fSizePacket, Flags, @fOverlapped, nil) = 0 then
  begin
      while not Terminated do begin
       
         if WSAGetOverlappedResult(SOCKET_RECV, @fOverlapped, cbTransfer, False,  Flags) then
        begin
          {получили данные}
           Break;
        end
        else
        begin
          {ошибки}
          WSAError:= WSAGetLastError;
          if WSAError <> WSA_IO_INCOMPLETE then begin
           break;
          end
          else sleep(1);
        end;
      end;
  end
  else begin
    WSAError:= WSAGetLastError;
    if WSAError = WSA_IO_PENDING then
    sleep(5);
  end;

  {ошибки}
  WSAError:= WSAGetLastError;
  if WSAError <> WSA_IO_INCOMPLETE then 
    break
  else sleep(1);