何位高人帮忙把下面代码翻译成delphi，谢了

哪位高人帮忙把下面代码翻译成delphi，谢了
HRESULT ShowShellDocViewMenu(LPDISPATCH lpDocDisp, POINT pt, UINT nCmdID)
...{
  HRESULT hr = S_FALSE;
  IOleCommandTarget *pct;
  if ( lpDocDisp && SUCCEEDED(lpDocDisp->QueryInterface(IID_IOleCommandTarget, (void **)&pct)))
  ...{
  try
  ...{
  CComVariant vtIn;
  vtIn.vt = VT_I4;
  vtIn.lVal = MAKELONG(pt.x, pt.y);
  CComVariant vtOut;
  hr = pct->Exec(&CGID_ShellDocView, nCmdID, OLECMDEXECOPT_DONTPROMPTUSER, &vtIn, &vtOut);
  }
  catch (...) ...{
  }
  pct->Release();
  }
  return hr;
}

这个是调用IE管理加载项的代码，不知道怎么专程delphi，帮忙下，谢谢了。

------解决方案--------------------
var
hr:HRESULT;
pct:^IOleCommandTarget;
vtin,vtout:TVarRec;
begin
hr := S_FALSE; 

if (lpDocDisp<>nil) and (lpDocDisp^.QueryInterface(IID_IOleCommandTarget,@pct)=S_OK) 
then
try 

vtIn.vt = VT_I4; 
vtIn.lVal = pt.x+(pt.y shl 16); //MAKELONG(pt.x, pt.y); 

hr := pct^.Exec(@CGID_ShellDocView, nCmdID,OLECMDEXECOPT_DONTPROMPTUSER, @vtIn, @vtOut); 

finally
pct^.Release; 
end; 
result:= hr; 
end;

希望能帮到你
------解决方案--------------------
vtIn.lVal = pt.x+(pt.y shl 16); //MAKELONG(pt.x, pt.y); 

这行应该改为
vtIn.lVal = pt.x or DWORD(pt.y shl 16); //MAKELONG(pt.x, pt.y);