Type not allowed in OLE Automation call

Estou tentando criar um OleVariant e estou tendo o seguinte erro:

Type not allowed in OLE Automation call

Programa:

uses ActiveX;

var
vHeadStr: OleVariant;
begin
VariantInit(vHeadStr);
vHeadStr.vt := VT_BSTR;
vHeadStr.bstrVal := StringToOleStr(´This is my header string.´);

Tentei isso tb:

var
vHeadStr: OleVariant;
begin
VariantInit(vHeadStr);
vHeadStr.vt := VT_BSTR;
vHeadStr.bstrVal := SysAllocString(´This is my header string.´);

Alguém sabe o que pode ser isso?