function ReadingUnits: TPdfReadingUnits;
TPdfReadingUnitsReading unit は見出しと図の代替テキストをひとまとめに保ち、段落テキストは文の区切りで分割し、小数点を壊さず、読み上げカーソルを呼び出し側で管理する配列インデックスのまま返します
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;