anchor.diff:  begin
     if BkGnd then
       for I := 0 to Count - 1 do
  -      with Items[I].Cell do
  -        if not BkGnd then
  -        begin
  -          BkGnd := True;
  -          BkColor := Self.BkColor;
  -        end;
  +      if Items[I] is TCellObj then
  +        with TCellObj(Items[I]).Cell do
  +          if not BkGnd then
  +          begin
  +            BkGnd := True;
  +            BkColor := Self.BkColor;
  +          end;
   end;
   
   {----------------TCellList.DrawLogic1}
  
positive.code:       if Row <> nil then
          for I := Row.Count - 1 downto 0 do
          begin
            CellObj := Row[I];
            if CellObj <> nil then
            begin
              Result := CellObj.Cell.FindDocPos(SourcePos, Prev);
              if Result >= 0 then
                Exit;
            end;
  
negative.code: var
    I, J: Integer;
    Row: TCellList;
  begin
    for J := 0 to Rows.Count - 1 do
    begin
      Row := Rows[J];
      for I := 0 to Row.Count - 1 do
        if Row[I] is TCellObj then
          TCellObj(Row[I]).Cell.CopyToClipboard;
    end;
  end;
  
  