anchor.diff:   end;
   end;
   
  -procedure TBlkAC.MenuPOKRACClick(SenderPnl:TIdContext; SenderOR:TObject);
  +procedure TBlkAC.MenuPOKRACClick(SenderPnl: TIdContext; SenderOR: TObject);
   begin
    if (not Self.paused) then
     begin
  
positive.code:     TJCDatabase, fMain, TCPServerOR, TrainDb, THVDatabase, TBlokVyhybka,
      TCPServerPT, ownStrUtils;
  
  constructor TBlkAC.Create(index:Integer);
  begin
   inherited Create(index);
  
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkAC.MenuSTARTClick(SenderPnl: TIdContext; SenderOR: TObject);
  begin
   try
     Self.Start();
  