Fórum Tabela - word - Delphi #379976

Olá,
Estou com um problema para fazer uma tabela do word!Na verdade são varias tabelas uma em baixo da outra...!
Encontrei em diversos foruns esse mesmo exemplo a baixo, mas nenhum faz um TEXTO a baixo da tabela e com mais que uma tabela, eu preciso imprimir no word umas 7 tabelas, tendo textos entre elas. 
EX:procedure TForm1.BitBtn1Click(Sender: TObject); 
var 
  Word: Variant; 
begin 
Word:=CreateOleObject('Word.Application'); 
try 
    Word.Documents.Add; 
    try 
        Word.ActiveDocument.Tables.Add(Range:=Word.Selection.Range, NumRows:=2, NumColumns:=3); 
        Word.Selection.TypeText(Text := 'Linha 1, Coluna 1'); 
        Word.Selection.MoveRight(12); 
        Word.Selection.TypeText(Text := 'Linha 1, Coluna 2'); 
        Word.Selection.MoveRight(12); 
        Word.Selection.TypeText(Text := 'Linha 1, Coluna 3'); 
        Word.Selection.MoveRight(12); 
        Word.Selection.TypeText(Text := 'Linha 2, Coluna 1'); 
        Word.Selection.MoveRight(12); 
        Word.Selection.TypeText(Text := 'Linha 2, Coluna 2'); 
        Word.Selection.MoveRight(12); 
        Word.Selection.TypeText(Text := 'Linha 2, Coluna 3'); 
        Word.Selection.Tables.Item(1).Select; 
        Word.Selection.Cells.AutoFit; 
        Word.ActiveDocument.SaveAs(FileName := 'c:\Tabela.doc'); 
  finally 
        Word.ActiveDocument.Close(SaveChanges := 0); 
        end; 
finally 
    Word.Quit; 
    end; 
end;
---------------------------
O que acontece que qdo começo a fazer a próxima tabela o word coloca uma dentro da outra.. assim o relatório vai ficando com 600 ou 700 páginas. Eu não sei o comando para sair da tabela ou finalizar a tabela.. Para então escrever outro texto a baixo da tabela e então começar outra tabela.
Estou a dias tentando.... Alguém tem alguma dica? ou sabe como resolver esse problema!
OBrigado.
att,Martins