UniDAC
This type is used for the TDALoader.OnProgress event.
DALoader
TLoaderProgressEvent = procedure (Sender: TObject; Percent: integer) of object;