anchor.diff:  
       // MTB events:
       procedure OnMTBStart(Sender:TObject);
  +    procedure OnMTBScanned(Sender:TObject);
       procedure OnMTBStop(Sender:TObject);
       procedure OnMTBOpen(Sender:TObject);
       procedure OnMTBClose(Sender:TObject);
  
positive.code: 
    if (SystemData.Status = starting) then
     Self.A_Trk_ConnectExecute(nil);
  end;//procedure
  
  procedure TF_Main.OnMTBStop(Sender:TObject);
  begin
  
negative.code: 
    writelog('----- MTB START OK -----',WR_MTB);
  
    Self.LogStatus('MTB: komunikace sputna, ekm na prvn sken vech modul...');
    MTBTableData.UpdateTable();
  end;//procedure
  
  procedure TF_Main.OnMTBScanned(Sender:TObject);
  begin
    F_Main.S_MTB_Start.Brush.Color := clLime;
    MTBTableData.UpdateTable();
  
    writelog('----- MTB SCANNED -----',WR_MTB);
    Self.LogStatus('MTB: moduly naskenovny');
  
    if (F_Admin.CHB_SystemStart.Checked) then
      Blky.Enable();
  