SAFEARRAY如何封装成Variant?

SAFEARRAY如何封装成Variant?

所属分类：Delphi VCL组件开发及应用
-----------------------------------------

var
A: Variant;
   psa: PSAFEARRAY;
   rgsabound: array[0..1] of TSafeArrayBound;
   RGB: array[0..255] of array[0..2] of byte;
begin
     rgsabound[0].cElements :=256;
     rgsabound[0].lLbound :=0;
     rgsabound[1].cElements :=3;
     rgsabound[1].lLbound :=1;
     psa := SafeArrayCreate(VT_ARRAY,2,rgsabound);
     psa.cDims :=2;
     psa.fFeatures :=FADF_AUTO;
     psa.cbElements := SizeOf(Byte);
     psa.pvData :=@RGB;

     A.vt :=VT_ARRAY+varByte;
     A.pArray := psa;  <----这句编译时出错 [Error] untMain.pas(1592): Type not allowed in Variant Dispatch call

end;
请问怎样才能把上面的psa转换为变体A