No Word XP funciona, mas no 2000 não.

Se eu executar o programa relativo à rotina abaixo em uma máquina com Word XP, funciona beleza, mas se eu executar em um máquina que tenha o Word 2000 não funciona direito. Na máquina com Word 2000, são criadas as duas tabelas no arquivo, mas a segunda tabela é criada dentro da primeira célula da primeira tabela.

Qualquer ajuda é bem vinda.
Obrigado.

procedure TForm1.Button1Click(Sender: TObject);
Var
VWord : OleVariant;
VArquivo : string;
begin
VArquivo := ´C:\teste.doc´;
VWord := CreateOleObject(´Word.Application´);
VWord.Documents.Add;

VWord.Selection.TypeText(Text := ´Linha antes da tabela ´);

VWord.ActiveDocument.Tables.Add(Range := VWord.Selection.Range,
NumRows := 3,NumColumns := 5);

VWord.Selection.MoveDown(count:=3);

VWord.ActiveDocument.Tables.Add(Range := VWord.Selection.Range,
NumRows := 3,NumColumns := 5);

VWord.Selection.MoveDown(count:=3);

VWord.Selection.TypeText(Text := ´Linha depois da tabela ´);

VWord.ActiveDocument.SaveAs(FileName := VArquivo);
try
finally
//Fecha documento
VWord.ActiveDocument.Close(SaveChanges := 0);
VWord.Quit;
end;


end;