anchor.diff:  
       procedure SelectAllRows; virtual; abstract;
       procedure SetupGrid; virtual; abstract;
  +
  +    property FormulaFields : TmFormulaFields read FFormulaFields;
     end;
   
     { TmDBGridHelper }
  
positive.code:         for i := 0 to columns.Count - 1 do
          begin
            if columns.Get(i).Visible then
              CSVBuilder.AppendCell(columns.Get(i).Title);
          end;
          CSVBuilder.AppendRow;
  
  
negative.code:               if (curField.DataType = ftBoolean) then
                begin
                  if VarIsNull(curValue) then
                    CSVBuilder.AppendCell('')
                  else
                    CSVBuilder.AppendQuotedCell(BoolToStr(curValue, true));
                end
                else
                begin
                  if VarIsNull(curValue) then
                    CSVBuilder.AppendCell('')
                  else
                    CSVBuilder.AppendQuotedCell(VarToStr(curValue));
                end;
  