anchor.diff:      procedure AppendRow;
   
       property Delimiter: Char read FDelimiter write FDelimiter;
  -    property QuoteChar: Char read FQuoteChar write FQuoteChar;
  +    property QuoteChar: String read FQuoteChar write FQuoteChar;
       property LineEnding: String read FLineEnding write FLineEnding;
       property FileName: String read FFilename write FFilename;
       property UTF8: Boolean read FUTF8 write FUTF8;
  
positive.code:   FOwnedFileStream:= nil;
    FExtStream:= nil;
    FUTF8:= true;
    FCurrentRow := '';
  end;
  
  destructor TmCSVBuilder.Destroy;
  
negative.code:     FOwnedFileStream := TFileStream.Create(FFilename, fmCreate);
      if FUTF8 then
        AddUTF8BOMToStream(FOwnedFileStream);
      StartNewRow;
    end;
  end;
  
  