dephi调用ocx控件事件参数传递问题

调用vc的一个ocx控件，其中一个事件是：
procedure TForm1.ImageSizeInfo(ASender: TObject;
  const ImageSize: IInterface);
var
     sImageInfo:^s_CaptureImage;
begin
    sImageInfo:=s_CaptureImage(ImageSize)^;
    m_nNearImgW:=sImageInfo.nNearImgWidth;
    m_nNearImgH:=sImageInfo.nNearImgHeight;
    m_nFarImgW:=sImageInfo.nFarImgWidth;
    m_nFarImgH:=sImageInfo.nFarImgHeight;
end;
上面是我自己写的代码，就是要从这个ImageSize结构里面获取相应的信息，请问如何传递过来的ImageSize结构参数从获取
所需的结构值。
结构定义是：
  type
  s_CaptureImage=record
  nNearImgWidth:Integer;
  nNearImgHeight:Integer;
  nFarImgWidth:Integer;
  nFarImgHeight:Integer;
  end;