关于 DynArrayToVariant 急!!!

Question

type
  frame=record
          addr:byte;
          info:string;
        end;  
然后声明   
  var 
    f:array of frame; 
    ole:olevariant;
 
再....
         setlength(f,1);
         f[0].addr:=100;
         f[0].info:=memo1.Text;
         p:=TypeInfo(frame);
         DynArrayToVariant(ole,f,p);
然后就出错,是 DynArrayToVariant 的第二个参数错误,不知道是不是要 const,如果要 const ,那么这个动态数组又怎么赋值呢?还有 第三个参数 TypeInfo 我也不是很理解?DynArrayToVariant原型如下:
procedure DynArrayToVariant(var V: Variant; const DynArray: Pointer; TypeInfo: Pointer);我究竟该怎样才能实现动态数组到 Variant 的转换啊!!
急死我了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!