TInternetExplorerNewWindow2 = procedure (ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object;
(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) ( TInternetExplorerNewWindow2)();
SHDocVw
This is type SHDocVw.TInternetExplorerNewWindow2.