anchor.diff:      SB1.Panels.Items[_SB_MTB].Text := 'MTB openned';
      end;//with F_Main do
   
  -  Self.A_System_Start.Enabled := true;
  -  F_Main.S_MTB_Start.Brush.Color   := clRed;
  -
  -  SystemData.Status := null;
  -
  -  //defaultni hodnota padu
  -  Konfigurace.ini := TMemIniFile.Create(F_Options.E_dataload.Text);
  -  Konfigurace.ini.WriteInteger('SystemCfg','RunError',0);
  -  Konfigurace.ini.UpdateFile;
  -  Konfigurace.ini.Free;
  -
  -  Self.LogStatus('ERR: MTB: '+errMsg);
  -
  -  Application.MessageBox(PChar('Pri zapnn komunikace nastala chyba:'+#13#10+errMsg+#13#10+'Chybovy kod: '+IntToStr(errValue)+':'+IntToStr(errAddr)), 'Chyba', MB_OK OR MB_ICONERROR);
  -  writelog('----- MTB START DRIVER ERROR - '+errMsg+' - errValue='+IntToStr(errValue)+' -----',WR_ERROR,21);
  -end;//procedure
  -
  -procedure TF_Main.OnMTBErrStop(Sender:TObject; errValue: word; errAddr: byte; errMsg:string);
  -begin
  -  with (F_Main) do
  -   begin
  -    A_MTB_Go.Enabled     := true;
  -    SB1.Panels.Items[_SB_MTB].Text := 'MTB openned';
  -   end;//with F_Main do
  -
     SystemData.Status := null;
   
     F_Main.S_MTB_Start.Brush.Color   := clRed;
  
positive.code:      fBlkVyhybkaSysVars, fBlkTratSysVars, TBlokTrat, ModelovyCas, fBlkZamek,
       TBlokZamek, DataMultiJC, TMultiJCDatabase, fMJCEdit, ACDatabase,
       TBlokRozp, fBlkRozp, fFuncsSet, FunkceVyznam, fBlkTU, MTBdebugger, Booster,
       AppEv, fBlkVystup, TBlokVystup, TCPServerPT;
  
  //function ShutdownBlockReasonCreate(hWnd: HWND; Reason: LPCWSTR): Bool; stdcall; external user32;
  //function ShutdownBlockReasonDestroy(hWnd: HWND): Bool; stdcall; external user32;
  
negative.code:   try
      MTB.Start();
    except
     on E:ERCSAlreadyStarted do
       Self.OnMTBErrStart(Self, 'Komunikace ji probh!');
     on E:ERCSFirmwareTooLow do
       Self.OnMTBErrStart(Self, 'Firmware MTB-USB modulu je star ne v0.2.20, nelze se pipojit k takto starmu FW!');
     on E:ERCSNoModules do
       Self.OnMTBErrStart(Self, 'Na sbrnici nebyl nalezen dn MTB modul, nelze spustit komunikaci!');
     on E:ERCSNotOpened do
       Self.OnMTBErrStart(Self, 'Nepipojeno k MTB-USB, pipojte se nejdve k MTB-USB!');
     on E:ERCSScanningNotFinished do
       Self.OnMTBErrStart(Self, 'Neprobhl sken modul, vykejte na dokonen skenu modul!');
     on E:Exception do
       Self.OnMTBErrStart(Self, 'Nastala kritick chyba : '+E.Message);
    end;
  end;
  
  