anchor.diff:  
     if (SystemData.Status = starting) then
      Self.A_Trk_ConnectExecute(nil);
  -end;//procedure
  +end;
   
   procedure TF_Main.OnMTBStop(Sender:TObject);
   begin
  
positive.code:   MTB.AfterClose := Self.OnMTBClose;
    MTB.AfterStart := Self.OnMTBStart;
    MTB.AfterStop  := Self.OnMTBStop;
  
    // TODO
  {  MTB.OnErrOpen  := Self.OnMTBErrOpen;
  
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();
  