anchor.diff:  var
     aTendency: TEditorTendency;
   begin
  -  aTendency := Engine.CurrentTendency;
   
     if Engine.Files.Current <> nil then
     begin
  
positive.code: 
  procedure TMainForm.EngineDebug;
  begin
    if Assigned(Engine) then
    begin
      DBGRunAct.Enabled := not Engine.Session.Run.Active;
      if (Engine.Tendency.Debug <> nil) then
      begin
        DebugPnl.Caption := Engine.Tendency.Debug.GetKey;
        UpdateFileHeaderPanel;
        UpdateCallStack;
        UpdateWatches;
        Engine.Files.Refresh; // not safe thread
      end;
    end;
  end;
  
  
negative.code:     procedure ProjectChanged;
      procedure AddMenuItem(AName, ACaption: string; AOnClickEvent: TNotifyEvent; AShortCut: TShortCut = 0);
      procedure UpdateMenu;
      procedure UpdateActions;
      procedure UpdatePanel;
      procedure SetFolder(const Value: string);
      procedure ReopenClick(Sender: TObject);
  