请教一个XE3下的移植错误Parameter lists differ

Question

下面代码中“ tempWB.OnBeforeNavigate2 := Self.tempWBBeforeNavigate2;” 这句移植到XE3中会发生错误Incompatible types: 'Parameter lists differ'。procedure TFrm_webview.webNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  if not Assigned(tempWB) then tempWB := TWebBrowser.Create(Self);
  tempWB.OnBeforeNavigate2 := Self.tempWBBeforeNavigate2;
  ppDisp := tempWB.OleObject;
end;这是一个D7的代码，作用是动态建立tmpwb后将一个OnBeforeNavigate2的处理过程赋值给tmpweb的对应事件，请问XE3中应该如何写

Answer 1

补充一下，我的tempWBBeforeNavigate2过程有sender参数：procedure TFrm_webview.tempWBBeforeNavigate2(Sender: TObject;//自定义新窗口弹出前的代码
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
  Self.web.Navigate(Url);
  Cancel := True;
end;