function ReadingUnits: TPdfReadingUnits;
TPdfReadingUnitsLäsenheter behåller rubriker och alternativtext för figurer hela, delar stycketext vid meningsgränser, bevarar decimalpunkter och lämnar läsmarkören som ett arrayindex som ägs av anroparen
Använd Rects med TPdfView.SetReadingHighlight och Language för att samordna visuell markering med en TTS-röst
var Units: TPdfReadingUnits;
begin
Units := PdfView1.ReadingUnits;
if Length(Units) > 0 then
PdfView1.SetReadingHighlight(Units[0].Rects, Units[0].Page);
end;