necesito ayuda con este codigo

[MaMu]

Hola, en primer lugar, utiliza los eventos OnConnect, OnDisconnect y OnError para enviar avisos de conexion y desconexion.
Y segundo, Cliente.Address, es la direccion local del cliente, no la del host remoto, asumiendo que el componente que usas es ClientSocket y ServerSocket.

Cliente.Host:=direccion_remota_del_servidor;
Cliente.Port:=puerto_utilizado;

Saludos.

[[kurono]]

si son esos componente que utilizo dejame probar lo que dices

[[kurono]]

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.

[MaMu]

A ver, vamos por partes dijo el forense:

CLiente

Código Delphi [-]
 
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var msg:string;
begin
  msg:='Hola';
  ClientSocket1.Socket.SendText(msg);   
end;

Código Delphi [-]
 
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   ShowMessage('Desconectado');
end;

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Host:='210.59.25.15';
  ClientSocket1.Port:=210; //Por ejemplo
  ClientSocket1.Open;
end;

Código Delphi [-]
 
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var msg:string;
begin
  msg:=ClientSocket1.Socket.ReceiveText;
  ShowMessage(msg);
end;

Servidor

Código Delphi [-]
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ServerSocket1.Port:=210;
  ServerSocket1.Active:=True;
end;

Código Delphi [-]
 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage('Cliente conectado desde: '+ServerSocket1.Socket.RemoteHost);
end;

Código Delphi [-]
 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var msg:string;
begin
  msg:='Bienvenido';
  ServerSocket1.Socket.SendText(msg);
  ShowMessage('Cliente conectado desde: '+ServerSocket1.Socket.RemoteHost);
end;

Bueno, te adjunte algunas formas de encarar el tema, como para que te guíes.

Saludos