...
if  WSAAsyncSelect(FSocket,FWindowHandle,WM_SOCKET_AUTH_EVENT, FD_CONNECT or FD_READ or FD_WRITE or FD_CLOSE)= SOCKET_ERROR then
...

...
private
   FBuffer: packed array[0..8191] of byte;
   FStartBuffer:integer;
   FEndBuffer:integer;
...

procedure TMyClass.ReceivePackets;
var
 s:Integer;
begin
 s:=recv(FSocket,FBuffer[FEndBuffer],length(FBuffer)-FEndBuffer,0);

// тут нужно обработать возможные ошибки.

 inc(FEndBuffer,s);
 while true do
   begin
     if FEndBuffer-FStartBuffer<2 then Break;
     move(FBuffer[FStartBuffer],Fpacket,2);
     if FPacket.len>sizeof(FPacket) then
       begin
         // Тут нужно закрыть сокет, и сгенерировать исключение
         // так как прием таких пакетов не планируется
         Exit;
       end;
     if FEndBuffer-FStartBuffer<Fpacket.len then Break;
     move(FBuffer[FStartBuffer],FPacket,Fpacket.len);
     inc(FstartBuffer,Fpacket.len);  // увеличиваем значение стартовой позиции буфера на величину забранных данных
     if FGame then ProcessingGame else ProcessingAuth;  // обработка выделенного пакета
    end;

  // Оптимизация буфера (чтобы обойтись без постоянных сдвигов буфера
  // сдвигать будем только при крайней необходимости)

  // Если буфер пустой, устанавливаем позиции начала и конца на 0
  if FStartBuffer>=FEndBuffer then
  begin
    FStartBuffer:=0;
    FEndBuffer:=0;
  end;
  // Оцениваем длину свободного хвоста буфера, если он менее 2 кб, то сдвигаем данные к началу буфера
  if length(FBuffer)-FEndBuffer<2048 then
  begin
    move(FBuffer[FStartBuffer],FBuffer[0], FEndBuffer-FStartBuffer);
    FEndBuffer:=FEndBuffer-FStartBuffer;
    FStartBuffer:=0;
  end;
end;

res:= recv(FSocket,F_rgbBuf[F_cbDepth],sizeof(F_rgbBuf) - F_cbDepth,0);
if( res > 0 )then begin
   inc(F_cbDepth, res);
   offs:= 0;
   while( (F_cbDepth >= sizeof(PPacket(@F_rgbBuf[offs]).len))  and
            (F_cbDepth >= PPacket(@F_rgbBuf[offs]).len)
   ) do begin
       _process(PPacket(@F_rgbBuf[offs])^);
       inc(offs, PPacket(@F_rgbBuf[offs]).len);
       dec(F_cbDepth, PPacket(@F_rgbBuf[offs]).len);
   end;
   if( (offs > 0) and (F_cbDepth > 0) )then
      move(F_rgbBuf[offs], F_cbDepth[0], F_cbDepth);
end else
   ...

recv

function ReceiveDataBlock(hSocket: THandle; DataBlockSize: Integer; out DataBlock; out ErrorCode: Integer): Boolean;
var
 i: Integer;
 BytesToRead, BytesRead: Integer;
begin
 Result := False;
 i := 0;
 while i < DataBlockSize do begin
   BytesToRead := DataBlockSize - i;
   BytesRead := Recv(hSocket, PByteArray(@DataBlock)[i], BytesToRead, 0);
   Inc(i, BytesRead);
   if BytesRead > 0 then Continue;
   case BytesRead of
     0: ErrorCode := 0;
     SOCKET_ERROR: ErrorCode := WSAGetLastError;
   end;
   Exit;
 end;
 Result := True;
end;