[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