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.';
     SConfirmFileOverwriteCaption = 'Confirm';
     SConfirmFileOverwriteMessage = 'The selected file already exists. Overwrite it?';
  +  SWantToOpenFileMessage = 'Do you want to open the file?';
   
   type
   
  
positive.code:       FDBGrid.DataSource.DataSet.First;
        while not FDBGrid.DataSource.DataSet.EOF do
        begin
          for i := 0 to tmpFields.Count - 1 do
          begin
            if not tmpFields[i].IsNull then
            begin
              if (tmpFields[i].DataType = ftSmallint) or (tmpFields[i].DataType = ftInteger) or (tmpFields[i].DataType = ftLargeint) then
                MyWorksheet.WriteNumber(row, i, tmpFields[i].AsFloat, nfGeneral, 0)
              else
              if (tmpFields[i].DataType = ftFloat) then
                MyWorksheet.WriteNumber(row, i, tmpFields[i].AsFloat)
              else
              if (tmpFields[i].DataType = ftDate) or (tmpFields[i].DataType = ftDateTime) or (tmpFields[i].DataType = ftTime) or (tmpFields[i].DataType = ftTimeStamp) then
                MyWorksheet.WriteDateTime(row, i, tmpFields[i].AsDateTime)
              else
              if (tmpFields[i].DataType = ftBoolean) then
                MyWorksheet.WriteBoolValue(row, i, tmpFields[i].AsBoolean)
              else
                MyWorksheet.WriteText(row, i, tmpFields[i].AsString);
            end;
          end;
  
  
negative.code: 
  uses
    Classes, DB, Dialogs, Forms,
    DBGrids, Controls, Menus, LCLIntf,
    {$IFDEF FPC}
    fpstypes, fpspreadsheet, fpsallformats,
    {$ENDIF}
  