TEDBProgressEvent = procedure (Sender: TObject; PercentDone: Integer; var Continue: Boolean) of object