ATLDLL出错

问题： ATL DLL出错
描述:

我写了一个dll，想在delphi中调用，可是下面这个函数在delphi中总是报out of memory错误。不知道为什么?
STDMETHODIMP CFileParse::get_data(VARIANT *pVal)
{
    pVal->vt =VT_ARRAY | VT_I1;//VT_I1 | VT_BYREF;//
SAFEARRAY *psa;
unsigned int ndim =  1;
HRESULT hresult = SafeArrayAllocDescriptor(ndim, &psa);
if( FAILED(hresult))
{
return S_FALSE;
}
(psa)->rgsabound[ 0 ].lLbound = 0;
(psa)->rgsabound[ 0 ].cElements = 29;
hresult = SafeArrayAllocData(psa);
if( FAILED(hresult)) {
SafeArrayDestroyDescriptor(psa);
return S_FALSE;
}
memset(psa->pvData,2,2);
pVal->pparray=&psa;
return S_OK;
}