FD_Read: begin
  while True do begin
    Len := SockCheck(recv(RG_Sock, cur_main_buff^, RestLen, 0); //SockCheck непонятно.
    Dec(RestLen, Len); //получаем разницу между ожидаемым и полученным
    Inc(cur_main_buff, Len); //Увеличиваем буфер на его длину.
    if RestLen > 0 then //если пришло меньше чем нужно ждем оставшиеся данные
      Break;
  case Phase of //попеременно получаем длину и данные
    waitLen: begin
      Phase := waitData;
      RestLen := PSmallint(@main_buff[0])^;//получаем 2 байта размера
    end;
    waitData: begin
      ProcessPacket(main_buff); //Непонятно.
      Phase := waitLen;
      RestLen := SizeOf(Smallint); //сколько данных необходимо читать
      cur_main_buff := @main_buff[0]; // Не совсем понятно. Тут наверно cur_main_buff и main_buff нужно поменять местами.
    end;
  end;
end;

var
 RestLen:integer;
 Phase:integer;
 cur_main_buff: PByte;
 main_buff: array[0..65536] of byte;

procedure TForm1.Button3Click(Sender: TObject);
begin
  RG_connect;
   Phase:=2;
    cur_main_buff := @main_buff;
    RestLen:=0;
end;

procedure TForm1.WMSOCK_RG_EVENT(var Msg: TMessage);
var
  SockError: integer;
  Len:integer;
begin 
  SockError:=WSAGetSelectError(Msg.lParam);
  if (SockError<>0) then begin
    if SockError=10053 then RichEdit1.Lines.Add('RG was Disconnected')
    else RichEdit1.Lines.Add('RG error: '+inttostr(SockError));
   CloseSock(RG_sock);
    Exit;
  end;
  case WSAGetSelectEvent(Msg.lParam) of
    FD_Read: begin
     while True do begin
    Len := recv(RG_Sock, cur_main_buff^, RestLen, 0); 
    Dec(RestLen, Len); //Уменьшаем размер ожидаемых данных на размер полученных
    Inc(cur_main_buff, Len); //Смещаем указатель в буфере на размер прочитанных данных
    if RestLen-2 > 0 then //Иначе на выходе всегда получается разница в 2 байта от сюда RestLen := SizeOf(Smallint)
      Break;
  case Phase of //
    1: begin
      Phase := 2;
      RestLen := PSmallint(@main_buff[0])^;//получаем длину пакета
    end;
    2: begin
    Gs_parser(main_buff); //обработка
      Phase := 1;
      RestLen := SizeOf(Smallint); //ожидаем вначале два байта длины
      cur_main_buff := @main_buff[0];
      end;
  end;
end;
end;
    FD_Close: begin
      RichEdit1.Lines.Add('RG was Disconnected');    
    end;
  end;
end;

function ReadFromSocket(var Buffer; Cnt:Integer):Boolean;
var	
Res,Total:	Integer;
begin
	Total:= 0;
	repeat
	 Res:= recv(RG_sock, Pointer(Cardinal(@Buffer) + Total)^, Cnt -Total, 0);
	if Res = 0 then
	begin
	Exit;
	end;
	if Res < 0	then
	begin
	Exit;
	end;
	Inc(Total,	Res);
	until Total >= Cnt;
	Result:=	True;
end;


while ReadFromSocket(RWbuf, 2) do   
if ReadFromSocket(RWbuf, cnt-2) then begin 
GS_parser;  // обрабатываем.