Error Delphi Sockets

[JuanchoArg]

hola, creo que el problema está en que no guardas informacion del socket cliente, y entonces no hay forma de que le puedas enviar un mensaje si no estas dentro del evento ONREAD.
En el Servidor deberias crear una variable tipo TCustomWinSocket y asignarle la variable socket del cliente en el evento ClientRead. Algo asi:

procedure TForm1.ss1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
lb1.Items.Add(socket.RemoteHost+' dice:');
lb1.Items.Add(socket.ReceiveText);
cli1:=socket;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
cli1.SendText(edit1.Text);
end;


Espero te sirva. No creo que sea optimo. Pero funciona.

Saludos

PD: Si te hace falta te envio el mini codigo que hice para esto.