anchor.diff:    SUnableToWriteFileMessage = 'Unable to write file. Check if the file is open by another application. If so, close it and run this command again. Detail:';
     SConfirmFileOverwriteCaption = 'Confirm';
     SConfirmFileOverwriteMessage = 'The selected file already exists. Overwrite it?';
  +  SConfirmDiscordedFileExtCaption = 'Confirm';
  +  SConfirmDiscordedFileExtMessage = 'The selected file is not a %s file. Continue anyway?';
     SWantToOpenFileMessage = 'Do you want to open the file?';
     SConfigureCommandHint = 'Configure...';
     SConfigureGridCommandHint = 'Configure grid...';
  
positive.code: 
    if FSaveDialog.Execute then
    begin
      if FileExists(FSaveDialog.FileName) then
      begin
        if not ConfirmFileOverwrite then
  
negative.code:     FConfigurePopupMenu : TPopupMenu;
  
      function ConfirmFileOverwrite : boolean;
      function ConfirmDiscordedFileExt (const aFileExt : String): boolean;
      procedure ExportGridToFile(aFileType : String);
  
      procedure InternalCreate(aGrid: TCustomGrid; aFormulaFields : TmFormulaFields; aCellDecorations: TmCellDecorations);
  