Also ich fange erst einmal bei der Verbindung zum Server an:
1.) Beide (Server und Client) müssen den Selbenport besitzen
welche du benutzen kannst steht im Forum musst du mal die Suche nutzten
2.) Der Client muss in der Eigenschaft "Address" die
IP des Server beinhalten
Der Client sieht mir ansonsten so richtig aus, allerdings beim Server würde ich noch einen Button hinzufügen, der das senden übernimmt ähnlich wie beim Client
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Serversocket1.Active = true then
if ServerSocket1.Socket.ActiveConnections > then
ServerSocket1.Socket.Connections[1].SendText(Edit1.Text);
Edit1.Text:='';
end;