CreateOleObject后，调用函数传递字节数组，报错，不支持此接口

代码如下：
var
  aclass : Variant;
  suz : string;
  sz : Variant;
begin
  aclass := CreateOleObject('Network.Crypto');
  sz:=aClass.Encrypt3DES('0123456789','omXqC1jl1U9mUTmJomXqC1jl');
  suz := aclass.ToBase64(sz);
  Memo1.Lines.Add(suz);
end;上面aClass.Encrypt3DES返回一个byte数组，sz：array of byte
aclass.ToBase64参数也是一个字节数组，执行到这里后，就报不支持此接口，这是怎么回事？