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