anchor.diff:        if Row <> nil then
           for I := Row.Count - 1 downto 0 do
           begin
  -          CellObj := Row[I];
  -          if CellObj <> nil then
  +          if Row[I] is TCellObj then
             begin
  -            Result := CellObj.Cell.FindDocPos(SourcePos, Prev);
  +            Result := TCellObj(Row[I]).Cell.FindDocPos(SourcePos, Prev);
               if Result >= 0 then
                 Exit;
             end;
  
positive.code: 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
        begin
          Result := CellObj.Cell.FindString(From, ToFind, MatchCase);
          if Result >= 0 then
            Exit;
        end;
  
negative.code:   KeepIntact := T.KeepIntact;
    RowType := T.Rowtype;
    for I := 0 to T.Count - 1 do
      if Assigned(T[I]) then
        Add(T[I].Clone(AMasterList))
      else
        Add(nil);
  end;
  
  procedure TCellList.Add(CellObjBase: TCellObjBase);
  var
    CellObj: TCellObj absolute CellObjBase;
  begin
    inherited Add(CellObjBase);
    if CellObjBase is TCellObj then
    begin
      BreakBefore := BreakBefore or CellObj.BreakBefore;
      BreakAfter := BreakAfter or CellObj.BreakAfter;
  