property OnSpeak: TPdfReadingSpeakEvent;
O manipulador recebe o texto do bloco e um sinalizador Interrupt que informa ao host se deve limpar primeiro a fila de fala atual
procedure TForm1.ReadingSessionSpeak(Sender: TObject; const Text: WString; Interrupt: Boolean);
begin
SpeechEngine.Speak(Text, Interrupt);
end;