function DocumentReadingUnits: TPdfReadingUnits;
TPdfReadingUnitsLeeseenheden houden koppen en alternatieve tekst van figuren heel, splitsen alineatekst op zinsgrenzen, behouden decimale punten en laten de leescursor achter als een door de aanroeper beheerde array-index
Gebruik Rects met TPdfView.SetReadingHighlight en Language om visuele markering af te stemmen op een TTS-stem
var Units: TPdfReadingUnits;
begin
Units := Pdf1.DocumentReadingUnits;
if Length(Units) > 0 then
Memo1.Lines.Add(Units[0].Text);
end;