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