TDLLProc = procedure (Reason: Integer);

(Reason: Integer) ( TDLLProc)();