anchor.diff:         msgConfirmCloseAndDeleteFile+#10+fn,
          MB_OKCANCEL or MB_ICONWARNING)=ID_OK then
       if Groups.CloseTabs(tabCloseCurrent, false) then
  +    begin
         DeleteFileUTF8(fn);
  +      MenuRecent_RemoveFilename(fn);
  +    end;
   end;
   
   procedure TfmMain.DoFileNew;
  
positive.code:     function IsThemeNameExist(const AName: string; AThemeUI: boolean): boolean;
      procedure PopupToolbarCaseOnPopup(Sender: TObject);
      procedure PopupToolbarCommentOnPopup(Sender: TObject);
      procedure MenuRecentsClear(Sender: TObject);
      procedure MenuRecentsPopup(Sender: TObject);
      procedure MenuRecentItemClick(Sender: TObject);
  
negative.code:   else
    begin
      MsgBox(msgCannotFindFile+#10+fn, MB_OK or MB_ICONERROR);
      AppListRecents.Delete(n);
      UpdateMenuRecent(nil);
    end;
  end;
  
  procedure TfmMain.MenuRecent_RemoveFilename(const fn: string);
  var
    n: integer;
  begin
    n:= AppListRecents.IndexOf(AppCollapseHomeDirInFilename(fn));
    if n>=0 then
    begin
      AppListRecents.Delete(n);
      UpdateMenuRecent(nil);
    end;
  