anchor.diff:  var
     OldEncoding: string;
     OldAttr: Longint;
  -  bNotEmpty: boolean;
   begin
     Result:= true;
  -  bNotEmpty:= Ed.Strings.Count>0;
     while true do
     try
       AppFileAttrPrepare(AFileName, OldAttr);
  
positive.code:       Ed.EndUpdate;
      end;
      AppFileAttrRestore(AFileName, OldAttr);
      Break;
    except
      if MsgBox(msgCannotSaveFile+#10+AFileName,
        MB_RETRYCANCEL or MB_ICONERROR) = IDCANCEL then
      begin
        Result:= false;
        Break;
      end;
    end;
  end;
  
  
negative.code:             DoSave;
              MsgBox(Format(msgCannotSaveFileWithEnc, [OldEncoding]), MB_OK or MB_ICONWARNING);
            end;
          on E: EFileNotFoundException do
            begin
              MsgBox(msgCannotSaveFile+#10+AFileName, MB_OK or MB_ICONERROR);
              exit(false);
  