anchor.diff:  var
     I, J: Integer;
     Row: TCellList;
  -  CellObj: TCellObj;
   begin
     Obj := nil;
     if (len > 0) and (Pos >= StartCurs) and (Pos < StartCurs + Len) then
  
positive.code:         RowSpanHeight := 0;
          Inc(Result, RowHeight);
          for I := 0 to Count - 1 do
            if Assigned(Items[I]) then
            begin
              CellObj := TCellObj(Items[I]);
              with CellObj do
  
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;
  
  