anchor.diff:          exit;
         end;
   
  -    inc( Y, TLayoutLine(FLines[ LineIndex ]).Height );
  +    inc( Y, LineHeight );
       inc( LineIndex );
     end;
   
  
positive.code:   NewMarginX: longint;
    StartedDrawing: boolean;
  begin
    Line := TLayoutLine(FLines[ LineIndex ]);
    P := Line.Text;
    EndP := Line.Text + Line.Length;
  
    Style := Line.Style;
    FFontManager.SetFont( Style.Font );
  
    StartedDrawing := false;
  
    Link := '';
  
negative.code:   begin
      LineHeight := TLayoutLine(FLines[ LineIndex ]).Height;
      if     ( YToFind >= Y )
         and ( YToFind < (Y + LineHeight)) then
        begin
          // YToFind is within the line
          Result := tpWithinText;
  