Server-Client

[ReDoX]

Erstmal Danke für die Antworten!
Ich benutze ClientSocket & ServerSocket als Komponenten hier etwas Code:

Server:
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket.Port := 23; //Festlegung des Ports
ServerSocket.active := true; //Aktivierung der ServerSocket
end;


Client:
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Port := 23; //Festlegung des Ports
ClientSocket1.Host := '127.0.0.1'; //IP des Zielrechners
ClientSocket1.active := true; //Aufbau der Verbindung
end;



Client:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ClientSocket1.Active then
ClientSocket1.Socket.SendText('Hallo Server');
end;

Server:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;

So und jetzt möchte ich einen String vom Server an den Client schicken.
Und wenn ich das richtig verstehe findet der Server den Client automatisch?
Mfg MrScholz