anchor.diff:      miRecentProjects: TfpgMenuItem;
       FRecentFiles: TfpgMRU;
       FRegex: TRegExpr;
  +    FKeywordFont: TfpgFont;
       procedure   FormShow(Sender: TObject);
       procedure   FormClose(Sender: TObject; var CloseAction: TCloseAction);
       procedure   btnQuitClicked(Sender: TObject);
  
positive.code: destructor TMainForm.Destroy;
  begin
    FRegex.Free;
    inherited Destroy;
  end;
  
  
negative.code:   end;
  
    ACanvas.Font := oldfont;
  //  writeln('------');
  end;
  
  