function ReadingUnits: TPdfReadingUnits;
TPdfReadingUnitsЕдиницы чтения сохраняют заголовки и альтернативный текст рисунков целиком, разбивают текст абзацев по границам предложений, сохраняют десятичные точки и оставляют курсор чтения как индекс массива на стороне вызывающего кода
Используйте Rects вместе с TPdfView.SetReadingHighlight и Language, чтобы согласовать визуальную подсветку с TTS-голосом
var Units: TPdfReadingUnits;
begin
Units := PdfView1.ReadingUnits;
if Length(Units) > 0 then
PdfView1.SetReadingHighlight(Units[0].Rects, Units[0].Page);
end;