Foros Club Delphi - proxy TServerSocket/TClientSocket

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 :(

Código:

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 :)