anchor.diff:              SaveSimple(AFileName);
               MsgBox(Format(msgCannotSaveFileWithEnc, [OldEncoding]), MB_OK or MB_ICONWARNING);
             end;
  -        on E: EFileNotFoundException do
  +        on E: EFOpenError do
             begin
  -            MsgBox(msgCannotSaveFile+#10+AFileName, MB_OK or MB_ICONERROR);
  -            exit(false);
  +            SaveViaTempCopy(AFileName);
  +            if IsBadResultFile(AFileName) then
  +              raise;
             end;
           else
             raise;
  
positive.code:     Result:= (not FileExists(fn)) or (FileUtil.FileSize(fn)=0);
    end;
    //
  var
    OldEncoding: string;
    OldAttr: Longint;
    STempFilename: string;
  begin
    Result:= true;
    while true do
  
negative.code:     try
        try
          SaveSimple(AFileName);
        except
          on E: EConvertError do
            begin
  