anchor.diff:   Self.tcpServer.OnDisconnect := Self.OnTcpServerDisconnect;
    Self.tcpServer.OnExecute    := Self.OnTcpServerExecute;
   
  + Self.receiveTimer := TTimer.Create(nil);
  + Self.receiveTimer.Enabled := false;
  + Self.receiveTimer.Interval := _RECEIVE_CHECK_PERIOD_MS;
  + Self.receiveTimer.OnTimer := Self.OnReceiveTimerTick;
  +
    Self.DCCStopped := nil;
   end;//ctor
   
  
positive.code:    Self.SendLn(AContext, '-;HELLO;' + _PROTOCOL_VERSION);
  
     // oznamime verzi komunikacniho protokolu
     orRef.protocol_version := Self.parsed[2];
     F_Main.LV_Clients.Items.Item[orRef.index].SubItems.Strings[10] := Self.parsed[2];
  
     ORTCPServer.GUIQueueLineToRefresh(orRef.index);
     ModCas.SendTimeToPanel(AContext);
  
negative.code: end;
  
  ////////////////////////////////////////////////////////////////////////////////
  // This function is executed in separate thread for each client!
  
  procedure TORTCPServer.OnTcpServerExecute(AContext: TIdContext);
  var received:TTCPReceived;
  begin
   if (not AContext.Connection.Connected) then Exit;
  
  