WordItems Gruppieren

[LoL]

Moin

Ich habe folgenden Code der ein Bild und eine Textbox Gruppieren soll:

Delphi-Quellcode:

var winword: variant;
    a : array [0..1] of string;
    sh_word : Variant;
begin
  try
    winword := GetActiveOleObject('Word.Application') 
  except 
    winword := CreateOleObject('Word.Application');
  end;
  winword.Visible := True;
  winword.Documents.Add;
  sh_word := winword.ActiveDocument.Shapes.AddPicture('einbild.bmp',true,false);
  sh_word.Name := 'img';
  sh_word := winword.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,0,0,100,100);
  sh_word.Name := 'textbox';
  a[0] := 'img';
  a[1] := 'textbox';
  winword.ActiveDocument.Shapes.Range(a).Group;//Error

Laut der MSDN kann man bei der Range Mehrere Strings also auch ein Array mit Strings übergeben. Leider liefert mir aber schon der Compiler folgende Meldung(mit der ich nicht wirklich was anfangen kann):
"Type not allowed in Variant Dispatch call"

Kann der Compiler damit nicht umgehen? Wie kann ich das ansonsten lösen?

Schonmal im Vorraus Danke!