Datei von TServerSocket zu TClientSocket und umgekehrt

[ghost007]

So baue ich bei meinem chatprogramm auch die verbindung auf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
ClientSocket1.Active:=true; 
end;

Habe noch ein 2tes Problem, wenn man es so macht, muss man , wenn man einen router hat, den port freigeben.
Gibt es auch eine Lösung, um dieses Problem zu umgehen?