Получение данных через сокет, используя Synapse

//получаем данные от клинта
rec_packet:=Self.ConnectionSocket.RecvPacket(120000);
str_stream:=TStringStream.Create(rec_packet);
 
//отправляем данные в интернет        
tcp.SendStreamRaw(str_stream);
str_stream.Destroy(); str_stream:=nil;
                
//получаем ответ из интернета
rec_packet:=tcp.RecvPacket(120000);
sleep(100); //вот без этого данные приходят не полностью, если их много!!!
 
//отправляем ответ клиенту
str_stream:=TStringStream.Create(rec_packet);
Self.ConnectionSocket.SendStreamRaw(str_stream);
str_stream.Destroy(); str_stream:=nil;

//вешаем обрботчик на прием данных из интеренета
Self.tcp.OnReadFilter:=@Self.OnReadFilterTCP;
//вешаем обработчик на прием от клиента
Self.ConnectionSocket.OnReadFilter:=@Self.OnReadFilterClient;
//ждем данные из интернета
Self.tcp.RecvPacket(120000);
//ждем данные от клиента
Self.ConnectionSocket.RecvPacket(120000);

procedure CProxyThread.OnReadFilterTCP(Sender: TObject; var Value: AnsiString);
var str_stream:TStringStream;
    sock:TTCPBlockSocket;
begin
  //пришли данные из интернета
  str_stream:=TStringStream.Create(Value);
  //Отправляем их клиенту
  Self.ConnectionSocket.SendStreamRaw(str_stream);
  //ждем новых данных
  sock:=TTCPBlockSocket(Sender);
  sock.RecvPacket(120000);
end;

procedure CProxyThread.OnReadFilterClient(Sender: TObject; var Value: AnsiString);
var str_stream:TStringStream;
    sock:TTCPBlockSocket;
begin
  //пришли данные от клиента
  str_stream:=TStringStream.Create(Value);
  //шлем их в интернет
  Self.tcp.SendStreamRaw(str_stream);
  //ждем новых данных
  sock:=TTCPBlockSocket(Sender);
  sock.RecvPacket(120000);
end;

//ждем новых данных
  sock:=TTCPBlockSocket(Sender);
  sock.RecvPacket(120000);