anchor.diff:    end;
   
     DrawTextBlock;
  -  writeln('DrawRichTextLine <<<');
   end;
   
   Procedure DrawRichTextLayout( var FontManager: TCanvasFontManager;
  
positive.code:       break;
  
    until false;
  writeln('DEBUG:  DrawRichTextLayout <<<<');
  End;
  
  Procedure PrintRichTextLayout( var FontManager: TCanvasFontManager;
  
negative.code:     exit;
  
    Y := StartPoint.Y + Layout.FRichTextSettings.Margins.Top;
    LineIndex := 0;
  
    repeat
      Line := Layout.FLines^[ LineIndex ];
      BottomOfLine := Y + Line.Height + 1; // bottom pixel row is top + height + 1
  
      if // the line is in the range to be drawn
  