property OnSpeak: TPdfReadingSpeakEvent;
El manejador recibe el texto del fragmento y un indicador Interrupt que le dice al host si debe limpiar primero la cola de voz actual
procedure TForm1.ReadingSessionSpeak(Sender: TObject; const Text: WString; Interrupt: Boolean);
begin
SpeechEngine.Speak(Text, Interrupt);
end;