anchor.diff:      BlocksTablePainter.UpdateTable();
   
     PanelServer.BroadcastBottomError('Výpadek systému RCS!', 'TECHNOLOGIE');
  +  Trains.StopAllTrains();
   
     if (SystemData.Status = stopping) then
       Self.A_RCS_CloseExecute(nil);
  
positive.code:   Self.LogStatus('Vypínám systémy...');
    SystemData.Status := stopping;
  
    Self.LogStatus('Zastavuji všechny Trains...');
    Trains.StopAllTrains();
  
    Application.ProcessMessages();
  
negative.code:   SB1.Panels.Items[_SB_RCS].Text := 'RCS zavřeno';
  
    PanelServer.BroadcastBottomError('Výpadek systému RCS!', 'TECHNOLOGIE');
    Trains.StopAllTrains();
  
    if (SystemData.Status = stopping) then
    begin
  