type TDHEvRetrieveImgRes = procedure(Sender: TObject; const ResourceName: string; Picture: TBitmap; var Handled: Boolean) of object