这个怎么转成delphi的？

  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);pct为IOleCommandTarget
不知道怎么在delphi传参数给pct.exec的最后两个参数。function Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD; const vaIn: OleVariant; var vaOut: OleVariant): 
HResult; stdcall;怎么给olevariant像上面VC那样加个类型？直接给olevariant赋值然后传过去不行。