anchor.diff:   Self.G_locos_acquired.Progress := Self.G_locos_acquired.Progress - 1;
   end;
   
  -procedure TF_Main.A_DCC_GoExecute(Sender: TObject);   //DCC go
  +procedure TF_Main.A_DCC_GoExecute(Sender: TObject);
   begin
    if ((SystemData.Status = starting) and (TrakceI.TrackStatusSafe() = TTrkStatus.tsOn)) then
     begin
  
positive.code:  except
     on E:Exception do
      begin
       Application.MessageBox(PChar('Chyba při DCC GO:'+#13#10+E.Message), 'Chyba', MB_OK OR MB_ICONERROR);
       Self.LogStatus('DCC: START: ERR '+E.Message);
      end;
   end;
  end;
  
  procedure TF_Main.A_DCC_StopExecute(Sender: TObject); //DCC stop
  begin
    Self.LogStatus('DCC: vypínám');
  
  
negative.code:    ORs.BroadcastPlaySound(_SND_CHYBA, false, TORControlRights.write);
  
     //neni DCC
     Self.S_DCC.Brush.Color := clRed;
     Self.LogStatus('DCC: stop');
  
     if (TrakceI.ConnectedSafe()) then
      begin
       Self.A_DCC_Go.Enabled := true;
       Self.A_DCC_Stop.Enabled := false;
      end;
     if ((SystemData.Status = starting) and (TrakceI.ConnectedSafe())) then
       Self.A_DCC_GoExecute(Self);
  
     ORTCPServer.DCCStop();
    end;//else state
  