// Организуем Port Mapping.
   OutboundClient := TIdTCPClient.Create(Self);
   try
     OutboundClient.Host := slLine[1];
     OutboundClient.Port := StrToInt(slLine[2]);
     OutboundClient.ConnectTimeout := DEFAULT_CONNECTION_TIMEOUT;
     OutboundClient.ReadTimeout := DEFAULT_READ_TIMEOUT;
     // Соединяемся.
     OutboundClient.Connect;
     OutboundClient.Socket.UseNagle := False;
     // Отсылаем данные о соединении.
     // Версия протокола.
     OutboundClient.IOHandler.Write(Integer(ROM_PROTOCOL_VERSION));
     // Оповещаем сервер о том, что используем каскадное соединение.
     OutboundClient.IOHandler.Write(Integer(CASCADE_CONNECT));
     // Отсылаем маршрут (список) соединенй.
     OutboundClient.IOHandler.Write(Integer(ms.Size));
     OutboundClient.IOHandler.Write(ms, ms.Size);
     // Механизм Port Mapping'а.
     while AContext.Connection.Connected do
     begin
       AContext.Connection.IOHandler.CheckForDataOnSource(1);
       FNetData := AnsiString(AContext.Connection.IOHandler.InputBufferAsString);
       if Length(FNetData) > 0 then
       begin
         OutboundClient.IOHandler.Write(string(FNetData));
       end;
       OutboundClient.IOHandler.CheckForDataOnSource(1);
       //OutboundClient.IOHandler.InputBuffer.
       FNetData := AnsiString(OutboundClient.IOHandler.InputBufferAsString);
       if Length(FNetData) > 0 then
       begin
         AContext.Connection.IOHandler.Write(string(FNetData));
       end;
     end;
   finally
     OutboundClient.Free;
   end;