ImageEn, unit iexRichEdit
TIEQueryAcceptData
Declaration
TIEQueryAcceptData = procedure(Sender: TObject; const ADataObject: IDataObject;
var AFormat: TClipFormat; ClipboardOperation: Cardinal; Really: Boolean;
IconMetaPict: HGLOBAL; var Handled: Boolean) of object;