谁知道ScriptControl.Run的参数如何传递的?（(100分)

TScriptControl : function Run(const ProcedureName: WideString; var Parameters:
PSafeArray): OleVariant; safecall;


procedureName 是一个脚本文件内的某个过程名,这个我知道.
我不知道这个 PSafeArray: 是什么? 传递什么给它, 它能返回值吗?

我想把很多变量值,有整形,字符串,日期传递给函数RUN. 而且我希望能返回这些变量在RUN 里面的修改值. 有什么办法吗? 谢谢

下面是PSafeArray的声明（摘自ActiveX.pas第1726行）
PSafeArray = ^TSafeArray;
{$EXTERNALSYM tagSAFEARRAY}
tagSAFEARRAY = record
cDims: Word;
fFeatures: Word;
cbElements: Longint;
cLocks: Longint;
pvData: Pointer;
rgsabound: array[0..0] of TSafeArrayBound;
end;
TSafeArray = tagSAFEARRAY;
{$EXTERNALSYM SAFEARRAY}
SAFEARRAY = TSafeArray;

接受答案了.