anchor.diff:      FExtStream : TStream;
       FOwnedFileStream : TFileStream;
       FUTF8 : boolean;
  +    FUTF8BOM : boolean;
       FCurrentRow: String;
       FIsNewRow: boolean;
       function CheckFileStream : TStream;
  
positive.code:     property LineEnding: String read FLineEnding write FLineEnding;
      property FileName: String read FFilename write FFilename;
      property UTF8: Boolean read FUTF8 write FUTF8;
      property Stream : TStream read FExtStream write FExtStream;
    end;
  
  
negative.code:   FOwnedFileStream:= nil;
    FExtStream:= nil;
    FUTF8:= true;
    FUTF8BOM := true;
    StartNewRow;
  end;
  
  