anchor.diff:  var
     I, J: Integer;
     Row: TCellList;
  -  CellObj: TCellObj;
   begin
     for J := 0 to Rows.Count - 1 do
     begin
       Row := Rows[J];
       for I := 0 to Row.Count - 1 do
  -    begin
  -      CellObj := Row[I];
  -      if CellObj <> nil then
  -        CellObj.Cell.CopyToClipboard;
  -    end;
  +      if Row[I] is TCellObj then
  +        TCellObj(Row[I]).Cell.CopyToClipboard;
     end;
   end;
   
  
positive.code: 
  procedure THtmlTable.Initialize;
  
    function DummyCell(RSpan: Integer): TCellObj;
    begin
      Result := TCellObj.Create(Document, ATop, nil, nil);
      Result.ColSpan := 0;
      Result.RowSpan := 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;
      CellObj: TCellObj;
    begin
      {initialize cells and put dummy cells in rows to make up for ColSpan > 1}
      NumCols := 0;
  
negative.code: var
    Cl, Rw, MaxColSpan, MaxRowSpan: Integer;
    Row: TCellList;
    CellObj: TCellObjBase;
  begin
    if not Initialized then
    begin
  