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