anchor.diff:  begin
     if fProject = nil then exit;
     if fProject.modified then if dlgOkCancel(
  -    'The latest mdofifications are not saved, continue ?')
  +    'The project modifications are not saved, continue ?')
         = mrCancel then exit;
  -
     closeProj;
   end;
   
  
positive.code: procedure TCEMainForm.mruProjItemClick(Sender: TObject);
  begin
    if fProject <> nil then if fProject.modified then if dlgOkCancel(
      'The latest mdofifications are not saved, continue ?')
        = mrCancel then exit;
    openProj(TMenuItem(Sender).Hint);
  end;
  
negative.code: procedure TCEMainForm.actProjNewExecute(Sender: TObject);
  begin
    if fProject <> nil then if fProject.modified then if dlgOkCancel(
      'The project modifications are not saved, continue ?')
        = mrCancel then exit;
    closeProj;
    newProj;
  