anchor.diff:  begin
     if fDoc = nil then exit;
     if fDoc.modified then if dlgOkCancel(
  -    'The latest mdofifications are not saved, continue ?') = mrCancel
  +    'The file modifications are not saved, continue ?') = mrCancel
         then exit;
     //
     fDoc.Free;
  
positive.code:   canClose := false;
    if fProject <> nil then if fProject.modified then
      if ce_common.dlgOkCancel(
        'last 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;
  
negative.code: procedure TCEMainForm.actProjOpenExecute(Sender: TObject);
  begin
    if fProject <> nil then if fProject.modified then if dlgOkCancel(
      'The project modifications are not saved, continue ?')
        = mrCancel then exit;
    with TOpenDialog.Create(nil) do
    try
  