anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +constructor TTCPReceived.Create();
  +begin
  + inherited;
  + Self.parsed := TStringList.Create;
  +end;
  +
  +destructor TTCPReceived.Destroy();
  +begin
  + Self.parsed.Free();
  + inherited;
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   constructor TORTCPServer.Create();
   var i:Integer;
   begin
  
positive.code:     constructor Create(conn:TIDContext; status:TPanelConnectionStatus = handshake);
    end;
  
    TORTCPServer = class
     private const
      _PROTOCOL_VERSION = '1.1';
  
     private
      clients:array[0.._MAX_OR_CLIENTS-1] of TORTCPClient;                        // databaze klientu
      tcpServer: TIdTCPServer;                                                    // object serveru
      parsed: TStrings;                                                           // naparsovana data, implementovano jako globalni promenna pro zrychleni
      data:string;                                                                // prijata data v plain-text forme
      fport:Word;                                                                 // aktualni port serveru
      DCCStopped:TIdContext;                                                      // tady je ulozeno ID spojeni, ktere zazadalo o CentralStop
  
negative.code:    Self.SendLn(AContext, '-;HELLO;' + _PROTOCOL_VERSION);
  
     // oznamime verzi komunikacniho protokolu
     orRef.protocol_version := parsed[2];
     F_Main.LV_Clients.Items.Item[orRef.index].SubItems.Strings[10] := parsed[2];
  
     ORTCPServer.GUIQueueLineToRefresh(orRef.index);
     ModCas.SendTimeToPanel(AContext);
  