Проблема с соединением

uses System.Net, System.Net.Sockets, System.IO;
 
begin
  exec('NPK server-obrab.exe');
  var server: TcpListener := new TcpListener(IPAddress.Any, 5100);
  while true do
    try
      
      //Вывод IP
      writeln('IP:', Dns.GetHostByName(Dns.GetHostName()).AddressList.ToArray());
      
      //Получение данных от клиента
      server.Start();
      var client := server.AcceptTcpClient();
      var stream := client.GetStream();
      var br := new BinaryReader(stream);
      var data := br.ReadString();
      
      //Передача данных обработчику
      WriteAllText('SInput.txt', data);
      
      //Ожидание ответа обработчика
      while not FileExists('SOutput.txt') do;
      
      //Отправка новой задачи клиенту
      var bw := new BinaryWriter(stream);
      bw.Write(readalltext('SOutput.txt'));
      var f: text;
      assign(f, 'SOutput.txt');
      erase(f);
      bw.Flush();
      stream.Close();
      client.Close();
    except
      on e: Exception do WritelnFormat('Error:{0}', e.Message);
    end;
end.

uses System.Net, System.Net.Sockets, System.IO;
 
///Отправляет строку по указанному адресу и возвращает ответ
function Connect(Self: string; IP: string; Port: integer): string; extensionmethod;
begin
  var client := new TcpClient(IP, Port);
  var stream := client.GetStream();
  var bw := new BinaryWriter(stream);
  bw.Write(Self);
  bw.Flush();
  var br := new BinaryReader(stream);
  Result := br.ReadString();
  stream.Close();
  client.Close();
end;
 
begin
  
  exec('NPK client-obrab.exe');
  
  //Определение IP
  var w := new WebClient();
  var IPS: sequence of string := w.DownloadString('https://yadi.sk/d/yYhi9Q_KxSaA0g').ToWords('I');
  while not ((IPS.First.ToString.First = 'P') and (IPS.First.ToString.Last = 'P')) do
    IPS := IPS.Skip(1);
  var IP := IPS.First.ToWords('P').JoinIntoString.Println;
  
  //Передача начальной комбинации
  var data := string('R').Connect(IP, 5100);
  
  //Тело программы
  while not (data = 'End') do
    try
      
      //Передача данных обработчику
      writealltext('CInput.txt', data);
      
      //Ожидание ответа от обработчика
      while not FileExists('COutput.txt') do;
      
      //Передача результата серверу
      data := readalltext('COutput.txt').Connect(IP, 5100);
      var f: text;
      assign(f, 'COutput.txt');
      erase(f);
    except
      on e: Exception do WritelnFormat('Error:{0}', e.Message);
    end;
  var ps := System.Diagnostics.Process.GetProcessesByName('NPK client-obrab.exe');
  foreach var p in ps do
    p.Kill;
end.

Dns.GetHostByName(Dns.GetHostName())