anchor.diff:    Controls, LCLType,
     Dialogs, Forms,
     Clipbrd,
  +  FileUtil,
     ATSynEdit,
     ATSynEdit_LineParts,
     ATSynEdit_CanvasProc,
  
positive.code: var
    OldEncoding: string;
    OldAttr: Longint;
  begin
    Result:= true;
    while true do
    try
      AppFileAttrPrepare(AFileName, OldAttr);
  
negative.code:             Ed.EncodingName:= cEncNameUtf8_NoBom;
              DoSave;
              MsgBox(Format(msgCannotSaveFileWithEnc, [OldEncoding]), MB_OK or MB_ICONWARNING);
            end;
          on E: EWriteError do
            begin
              MsgBox(msgCannotSaveFile+#10+AFileName, MB_OK or MB_ICONERROR);
              exit(false);
            end;
          else
            raise;
        end;
  