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: function TCellObj.getBorderTop: Integer;
  begin
    Result := FBrd.Top;
  end;
  
  //-- BG ---------------------------------------------------------- 08.01.2012 --
  
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
      begin
        if Row[I] is TCellObj then
        begin
          Result := TCellObj(Row[I]).Cell.FindString(From, ToFind, MatchCase);
          if Result >= 0 then
            Exit;
        end;
  