property OnChunkChange: TPdfReadingChunkEvent;
Use this event to update UI state, progress displays, or external speech metadata
procedure TForm1.ReadingSessionChunk(Sender: TObject; ChunkIndex: Integer);
begin
StatusBar1.SimpleText := IntToStr(ChunkIndex + 1);
end;