verbindung weiterleiten

[gandime]

Hi,
ich möchte eine Verbindung weiterleiten und ich hab mir das so gedacht:
Din serversocket bekommt eine Verbindung.
danach werden alle Verbindungen die der Server erhält an den Clienten weitergeleitet, welcher dann zu einem anderen Server connected.
Die daten die der client erhält werden zum serversocket zurückgeschickt und dann halt zu der Verbindung geschickt.
Hab das mal versucht zu realisieren:

Delphi-Quellcode:

procedure write(p_test:pansichar);
var
  i:integer;
begin
  for i:=0 to form1.ServerSocket1.Socket.ActiveConnections-1 do
  begin
    form1.ServerSocket1.Socket.Connections[i].SendBuf(p_test,length(p_test));
  end;
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  me_meg.Lines.Add('server: client connected');
  clientsocket1.Active:=true;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  p_text:pansichar;
begin
  me_meg.Lines.Add('client msg: '+Socket.ReceiveText);
  Socket.ReceiveBuf(p_text,Socket.ReceiveLength);
  write(p_text);
end;


[procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  p_text:pansichar;
begin
 me_meg.Lines.Add('server msg: '+Socket.ReceiveText);
 Socket.ReceiveBuf(p_text,Socket.ReceiveLength);
 clientsocket1.Socket.SendBuf(p_text,Socket.ReceiveLength);
end;

blos das funzt nicht ganz so wie ich es will...
muss ich vlt einen TCP-Server verwenden?


mfg
gandime