property OnChunkChange: TPdfReadingChunkEvent;
Naudokite šį įvykį UI būsenai, progreso rodiniams ar išoriniams kalbos metaduomenims atnaujinti
procedure TForm1.ReadingSessionChunk(Sender: TObject; ChunkIndex: Integer);
begin
StatusBar1.SimpleText := IntToStr(ChunkIndex + 1);
end;