数据转发怎么写？


procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Enabled :=false;
s.Host :='127.0.0.1';
s.Port :=25511;
s.Active :=true;c.Host :='124.238.254.113';
c.Port :=80;end;procedure TForm1.sClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
c.Active :=true;
end;procedure TForm1.cRead(Sender: TObject; Socket: TCustomWinSocket);
begins.Socket.Connections[s.Socket.ActiveConnections-1].SendText(socket.ReceiveText);
end;procedure TForm1.cDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
s.Socket.Close ;
end;procedure TForm1.sClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
c.Socket.Close ;
end;procedure TForm1.sClientRead(Sender: TObject; Socket: TCustomWinSocket);beginc.Socket.SendText(socket.ReceiveText);
end;end.以上是我写的代码 好像可以转发  但是 网页进度条到一半就不动了 郁闷 
希望那位大哥 帮忙改进下。。 使数据转发后 能正常游览网页