[Viet]

Tambien lo puedes hacer con los Indy con :

// en el server 

procedure TF_ppal.ServerExecute(AThread: TIdPeerThread);

begin

 with AThread.Connection do
  begin
    while Connected do begin
     msg := msg +  ReadLn;
     Disconnect;
    end;

end;

// en el cliente


procedure TF_ppal.botonxClick(Sender: TObject);
begin

   try
    Cli.host:= 'PCServer';
    Cli.Port := 1000;

    Cli.Connect;
    Cli.writeln( 'Mensaje');
    Cli.Disconnect;

   except
   end;

end;

todo lo haces con IdTCPClient, IdTCPServer

Suerte