disculpa amigo mamu pero la forma que me dices que ponga el codigo me da error
Código Delphi
[-]var
texto:string;
begin
servidor.Open;
begin
if cliente.OnConnect then
cliente.Host:='210.59.25.15';
cliente.Address:='64.32.105.190';
cliente.Open;
begin
if cliente.OnConnect then
cliente.Socket.SendText('hola');
begin
texto:=servidor.Socket.ReceiveText;
memo1.Lines.Add(texto);
end;
end;
end;
end;
end.