Erstmal herzlich Willkomen im Forum.
Zur besseren lesbarkeit gibt es oben im Editor die Schaltfläche "Delphi-Source" oder durch eingabe von [ delphi ] und [ /delphi ].
Um mit den Client-Server-Socket-Komponenten Daten zu versenden gibt es ein paar Ereignisse.
Anstatt sofort die Daten mit dem Client zu versenden, solltest Du erst warten. bis die Verbindung aufgebaut wurde, dafür ist das Ereigniss OnConnect zuständig. Außerdem muß natürlich erst der Server gestartet sein.
Anstatt den Status vom String abhängig zu machen, verwende:
Delphi-Quellcode:
if serversock.Active then
begin
bsvcontr.Caption := 'Server ist online';
...
...
end else begin
bsvcontr.Caption := 'Server ist offline';
...
...
end;
Zum lesen mußt Du im Server auf das OnRead-Ereignis reagieren.