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:     raise Exception.Create('Missing file stream. Call StartWrite before.');
  end;
  
  constructor TmCSVBuilder.Create;
  begin
    FDelimiter := ',';
  
negative.code:   end
    else
      fs.Write(FCurrentRow[1], Length(FCurrentRow));
    StartNewRow;
  end;
  
  end.
  