function DocumentReadingUnits: TPdfReadingUnits;
TPdfReadingUnitsReading units mempertahankan judul dan teks alternatif gambar utuh, memecah teks paragraf pada batas kalimat, mempertahankan titik desimal, dan meninggalkan kursor baca sebagai indeks array milik pemanggil
Gunakan Rects dengan TPdfView.SetReadingHighlight dan Language untuk mengoordinasikan penyorotan visual dengan suara TTS
var Units: TPdfReadingUnits;
begin
Units := Pdf1.DocumentReadingUnits;
if Length(Units) > 0 then
Memo1.Lines.Add(Units[0].Text);
end;