anchor.diff:        Row := Rows[J];
         for I := 0 to Row.Count - 1 do
         begin
  -        CellObj := Row[I];
  -        if CellObj <> nil then
  +        if Row[I] is TCellObj then
           begin
  -          Result := CellObj.Cell.CursorToXy(Canvas, Cursor, X, Y);
  +          Result := TCellObj(Row[I]).Cell.CursorToXy(Canvas, Cursor, X, Y);
             if Result then
               Exit;
           end;
  
positive.code: var
    I, J: Integer;
    Row: TCellList;
    CellObj: TCellObj;
  begin
    if not Prev then
      for J := 0 to Rows.Count - 1 do
  
negative.code: 
  procedure THtmlTable.Initialize;
  
    function DummyCell(RSpan: Integer): TCellObjBase;
    begin
      Result := TDummyCellObj.Create(Document, RSpan);
  //    if BkGnd then {transfer bgcolor to cell if no Table image}
  //    begin
  //      Result.Cell.BkGnd := True;
  //      Result.Cell.BkColor := BkColor;
  //    end;
    end;
  
    procedure AddDummyCellsForColSpansAndInitializeCells;
    var
      Cl, Rw, RowCount, K: Integer;
      Row: TCellList;
      CellObjBase: TCellObjBase;
      CellObj: TCellObj absolute CellObjBase;
    begin
      {initialize cells and put dummy cells in rows to make up for ColSpan > 1}
      NumCols := 0;
  