anchor.diff:  
     if Assigned(FExtStream) then
     begin
  -    if FUTF8 then
  +    if FUTF8 and FUTF8BOM then
         AddUTF8BOMToStream(FExtStream);
     end
     else
  
positive.code:     FExtStream : TStream;
      FOwnedFileStream : TFileStream;
      FUTF8 : boolean;
      FCurrentRow: String;
      FIsNewRow: boolean;
      function CheckFileStream : TStream;
  
negative.code:     property LineEnding: String read FLineEnding write FLineEnding;
      property FileName: String read FFilename write FFilename;
      property UTF8: Boolean read FUTF8 write FUTF8;
      property UTF8BOM : Boolean read FUTF8BOM write FUTF8BOM;
      property Stream : TStream read FExtStream write FExtStream;
    end;
  
  