Unit: dbisamtb

TProcedureProgressEvent = procedure (Sender: TObject; const
      Status: String; PercentDone: Word; var Abort: Boolean) of object

This type is used for the TDBISAMSession OnRemoteProcedureProgress event.