function ReadingUnits: TPdfReadingUnits;
TPdfReadingUnitsAs unidades de leitura mantêm títulos e texto alternativo de figuras inteiros, dividem o texto do parágrafo em limites de sentença, preservam pontos decimais e deixam o cursor de leitura como um índice de array pertencente ao chamador
Use Rects com TPdfView.SetReadingHighlight e Language para coordenar o destaque visual com uma voz de TTS
var Units: TPdfReadingUnits;
begin
Units := PdfView1.ReadingUnits;
if Length(Units) > 0 then
PdfView1.SetReadingHighlight(Units[0].Rects, Units[0].Page);
end;