COM参数如何写（有关Activex的，正急。。。。。。。。在线。。。。。。。。。(200分)

有一组件，是用其它语言来写的，Delphi代码如下：
TclsReport = class(TOleServer)
private
FIntf: _clsReport;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TclsReportProperties;
function GetServerProperties: TclsReportProperties;
{$ENDIF}
function GetDefaultInterface: _clsReport;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: _clsReport);
procedure Disconnect; override;
procedure ShowWin;
function init(const lSysID: WideString; const ServerName: WideString; const Login: WideString;
const pwd: WideString; const DBName: WideString): Smallint;
function OpenQuery(var ReportNameCh: PSafeArray): Smallint;
function OpenDocument(var ReportNameCh: PSafeArray): Smallint;
function OpenReport(var ReportNameCh: PSafeArray): Smallint;
property DefaultInterface: _clsReport read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TclsReportProperties read GetServerProperties;
{$ENDIF}
end;

我所遇到的问题是：
function OpenQuery(var ReportNameCh: PSafeArray): Smallint;
function OpenDocument(var ReportNameCh: PSafeArray): Smallint;
function OpenReport(var ReportNameCh: PSafeArray): Smallint;
后面那个参数是怎么传的，