OLE Automation & Variant Arrays

I'm getting an EOleSysError when trying to pass a variant string array
to Word 7 using Delphi 2. I'm using Word as the OLE automation
controller and a Delphi program as the controller.
The code segment comes from the MS Word developer kit.

Anyone have any ideas ??

Here's the segment of code that's giving me a problem.

TextPos := VarArrayCreate([1,2,1,2],VarOleStr);
TextPos[1,1] := '63 pt';
TextPos[1,2] := '0 pt';
TextPos[2,1] := '97 pt';
TextPos[2,2] := '42 pt';
MSWord.DrawSetCallOutTextBox(TextPos); <--- EOleSyserror here.