Unit: dbisamtb

TAbortProgressEvent = procedure (Sender: TObject; PercentDone:
      Word; var Abort: Boolean) of object

This type is used for the TDBISAMQuery OnQueryProgress event.