anchor.diff:  
            if SegmentType = $FF then
            begin
  -           AStream.Seek(BaseOffsetor+Int32(BaseOffset), soFromBeginning);
              AStream.Read(FBuffer[ftcp],SegmentLength);
              BaseOffset += SegmentLength;
            end
  
positive.code:       AStream.Seek(BaseOffsetor + SizeOf(UInt32)*row, soFromBeginning);
        AStream.Read(BaseOffset,SizeOf(BaseOffset));
  
        SkipIfPositive(h.LeftMargin);
        TotalRowLength :=  0;
        repeat
  
negative.code:       ReadType0();
      end;
      1:begin
        ReadType1();
      end;
      2:begin
        ReadType2();
  