anchor.diff:  begin
     fProject.fileName := aFilename;
     fProject.saveToFile(fProject.fileName);
  +  showProjTitle;
   end;
   
   procedure TCEMainForm.openProj(const aFilename: string);
  
positive.code:   closeProj;
    newProj;
    fProject.loadFromFile(aFilename);
  end;
  
  procedure TCEMainForm.mruProjItemClick(Sender: TObject);
  
negative.code: begin
    fProject.Free;
    fProject := nil;
    showProjTitle;
  end;
  
  procedure TCEMainForm.newProj;
  begin
    fProject := TCEProject.Create(nil);
    fProject.Name := 'CurrentProject';
    showProjTitle;
  end;
  
  procedure TCEMainForm.saveProj;
  