TTdbDataSet.OnProgress
TTdbDataSet

Occurs during a time-consuming operation

TTdbProgressEvent = procedure(Sender: TObject; PercentDone: Byte; var Stop: Boolean) of object;
property OnProgress: TTdbProgressEvent;

Description
Use OnProgress to update a progress bar.and offer the user a way to cancel the operation. OnProgress is called during creating and altering a table and in the creation of indexes.

Note: Do not execute TurboDB database operations within the OnProgress event handler. Since the database engine is not reentrant calling TurboDB methods can lead to unpredictable results.