proxy TServerSocket/TClientSocket

[TROMPO]

holas.. alguien me puede ayudar con eso.. ?

estoy intentando de hacer un proxy con esos componentes pero al parecer tengo problemas de sincronizacion, soy nuevo en delphi.. y pues no se como solucionarlo

procedure TForm1.client44405Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  data:string;
begin
  if socket.ReceiveLength<1 then
    Exit;
  data:=socket.ReceiveText;

  if server44405.Socket.Connected then
      server44405.Socket.SendText(data)   // <<<- aki error 10057
  else
      memo2.Lines.Add('Recv '+ asciitohex(data,true));

end;

nota.. si alguien tiene algun proxy/"man in the middle" de ejemplo plz