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