anchor.diff:    end;
   
     DrawTextBlock;
  -  writeln('DrawRichTextLine <<<');
   end;
   
   Procedure DrawRichTextLayout( var FontManager: TCanvasFontManager;
  
positive.code: 
  
  begin
  writeln('DrawRichTextLine >>>');
    P := Line.Text;
    EndP := Line.Text + Line.Length;
  
  
negative.code:   Y: longint;
    BottomOfLine: longint;
  begin
    assert( StartLine >= 0 );
    assert( StartLine <= Layout.FNumLines );
    assert( EndLine >= 0 );
  