anchor.diff:  var
     widg: TCEWidget;
   begin
  -  fProject := TCEProject.Create(self);
  +  fProject := TCEProject.Create(nil);
  +  fProject.Name := 'CurrentProject';
     for widg in WidgetList do widg.projNew(fProject);
     fProject.onChange := @projChange;
   end;
  
positive.code:   fPrjCfWidg.Free;
    fStExpWidg.Free;
    fFindWidg.Free;
    fProject.Free;
    fProjMru.Free;
    fFileMru.Free;
    //
    inherited;
  end;
  
negative.code:     {$IFDEF RELEASE}
      dmdProc.ShowWindow := swoHIDE;
      {$ENDIF}
      dmdproc.Options := [poNewConsole, poStdErrToOutput, poUsePipes];
  
      dmdproc.Executable := 'dmd';
      aProject.getOpts(dmdproc.Parameters);
  