anchor.diff:  procedure TCEMainForm.actProjOpenExecute(Sender: TObject);
   begin
     if fProject <> nil then if fProject.modified then if dlgOkCancel(
  -    'The latest mdofifications are not saved, continue ?')
  +    'The project modifications are not saved, continue ?')
         = mrCancel then exit;
     with TOpenDialog.Create(nil) do
     try
  
positive.code: begin
    if fDoc = nil then exit;
    if fDoc.modified then if dlgOkCancel(
      'The latest mdofifications are not saved, continue ?') = mrCancel
        then exit;
    //
    fDoc.Free;
  
negative.code:   canClose := false;
    if fProject <> nil then if fProject.modified then
      if ce_common.dlgOkCancel(
        'The project modifications are not saved, quit anyway ?') <> mrOK then
            exit;
    for i := fMultidoc.documentCount-1 downto 0 do
      if not fMultidoc.closeDocument(i) then exit;
  