Hallo,
da ist etwas übersehen worden. Du kannst in der on connect procedure direkt dem neuen Client antworten.
Es braucht weder eine Schleife noch einen Vergleich.
Im on connect wird dir der socket zum neuen client übergeben.
Code:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
socket.SendText('welcome');
end;
Das ist getestet und funktioniert. Das sendet eine Antwort an den neuen client.
der flossinger