Source position: fpdatadict.pp line 36
type TDDProgressEvent = procedure(
Sender: TObject;
const Msg: string
) of object;