anchor.diff:     Self.SendLn(AContext, '-;HELLO;' + _PROTOCOL_VERSION);
   
      // oznamime verzi komunikacniho protokolu
  +   (AContext.Data as TTCPORsRef).protocol_version := Self.parsed[2];
      F_Main.LV_Clients.Items.Item[(AContext.Data as TTCPORsRef).index].SubItems.Strings[9] := Self.parsed[2];
   
      ORTCPServer.GUIQueueLineToRefresh((AContext.Data as TTCPORsRef).index);
  
positive.code: ////////////////////////////////////////////////////////////////////////////////
  
  procedure TORTCPServer.ParseGlobal(AContext: TIdContext);
  var i:Integer;
      tmp:string;
      blk:TBlk;
      found:boolean;
  
negative.code:   _PING_TIMER_PERIOD_MS = 20000;
  
    // tady jsou vyjmenovane vsechny verze protokolu, ktere akceptuje server od klientu
    _PROTO_V_ACCEPT : array[0..1] of string =
      (
        '1.0', '1.1'
      );
  
  
  