anchor.diff:      FExtStream : TStream;
       FOwnedFileStream : TFileStream;
       FUTF8 : boolean;
  +    FUTF8BOM : boolean;
       FCurrentRow: String;
       FIsNewRow: boolean;
       function CheckFileStream : TStream;
  
positive.code:     if (FFilename = '') then
        raise Exception.Create('Filename is empty');
      FOwnedFileStream := TFileStream.Create(FFilename, fmCreate);
      if FUTF8 then
        AddUTF8BOMToStream(FOwnedFileStream);
      StartNewRow;
    end;
  
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;
  
  