anchor.diff:      procedure   miRunMake(Sender: TObject);
       procedure   miConfigureIDE(Sender: TObject);
       procedure   miViewDebug(Sender: TObject);
  +    procedure   miProjectNew(Sender: TObject);
       procedure   miProjectOptions(Sender: TObject);
       procedure   miProjectOpen(Sender: TObject);
       procedure   miProjectSave(Sender: TObject);
  
positive.code:   DebugForm.Show;
  end;
  
  procedure TMainForm.miProjectOptions(Sender: TObject);
  begin
    DisplayProjectOptions;
  
negative.code:     SetPosition(476, 140, 172, 20);
      AddMenuItem('Options...', '', @miProjectOptions);
      AddMenuItem('-', '', nil);
      AddMenuItem('New (empty)...', '', @miProjectNew);
      AddMenuItem('New from Template...', '', nil);
      AddMenuItem('Open...', '', @miProjectOpen);
      AddMenuItem('Open Recent', '', nil);
  