delphi关于PSafeArray变量的使用，在线，急(100分)

我用delphi开发一卡通系统，当中用到PSafeArray参数，
所用的函数如下：
function ReadCardInfo(var wgRegisterCard: PSafeArray): Integer;
safecall;
同时Psavearray变量指向的是一个数组，
具体的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
card:Array[0..4999] of cardinfo;
ssSafeArray;
n:integer;
begin
[red][/red]ss:=@card;
ret:=cc.ReadCardInfo(ss);
if ret>=0 then
begin
showmessage('打开记录成功');
for n:=1 to 10do
begin
memo1.Lines.Add(inttostr(card[n].ID));
end;
end
else
begin
showmessage('打开记录不成功');
showmessage(inttostr(ret));
end;
end;

请问应该怎么正确使用PSafeArray变量，谢谢。[]