function DocumentReadingUnits: TPdfReadingUnits;
TPdfReadingUnitsAs unidades de leitura mantêm títulos e textos alternativos de figuras inteiros, dividem o texto dos parágrafos nos 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 TTS
var Units: TPdfReadingUnits;
begin
Units := Pdf1.DocumentReadingUnits;
if Length(Units) > 0 then
Memo1.Lines.Add(Units[0].Text);
end;