integraçaõ delphi com word

tenho a seguinte codigo que monta um documento no word, apesar de alguns pontos que nao funcionam, esta ok
tenho um problema que nao consigo resolver. Tenho uma tabela que deveria ser montada no meio do documento,
so que o texto que deveria ser impresso apos a tabela, sai dentro da tabela, nao consegui um comando que
informa se ao sistema o fim da tabela para que eu posa inserir o final do texto ajudem me por favor


var i : integer;
MSWord : variant;
begin
MSWord:= CreateOleObject ('Word.Basic');
MSWord.Filenew;//inicia um novo documento
MSWord.AppShow;//mostra o word
MSWord.appmaximize;//Maximiza a janela do Word
// MSWord.insertpicture('.format.bmp');//Insere uma figura note que o ponto serve para dizer que esta no mesmo diretorio do programa
MSWord.Font('Times');//muda a fonte usada
MSWord.CenterPara;//coloca o texto no centro
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(#13+'CARTÃO SAÚDE CARAJÁS');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.leftPara;//coloca o texto no esquerda
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.insert(#13+#13'EDSON GARCIA DE MELO');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'Nº CONTRATO 00000000');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'Endereço : Rua Bairro : ');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao colocar o caracter corespondente no caso #9
MSWord.FontSize(16);//muda o tamanho da fonte
MSWord.CenterPara;//coloca o texto no centro
MSWord.bold;//coloca negrito
MSWord.insert(#13+'Presado Associado do Cartão Carajás');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
mSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.RightPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.bold(false);//tira o negrito
MSWord.insert(#13+' Comunicamos que seu Contrato de Adesão do Cartão Saúde Carajás efetuado');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.justifyPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.insert(#13+'com nosso escritório, esta devidamente cadastrado, no entanto o mesmo encontra-se');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'com (as) respectivas anuidade em aberto com o(s) seguintes vencimentos ');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.RightPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.bold(false);//tira o negrito



// estas linhas abaixo seriam as linhas que deveriam estar apos a tabela



MSWord.insert(#13+' Caro associado do Cartão Saúde Carajás, informamos que os debitos abaixo');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.justifyPara;//coloca o texto no esquerda
MSWord.FontSize(14);//muda o tamanho da fonte
MSWord.insert(#13+'mencionados poderão ser negociados. Portanto estamos convidando a você associado');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'a efetuar a liquidação de seu débito com o nosso escritório e receber seu cartão. Qual-');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'quer duvida entre em contato');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.leftPara;//coloca o texto no esquerda
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.insert(#13+'Atenciosamente');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.insert(#13+'');//#13 serve para pular linha caso queira dar um tabulacao e colocar o caracter corespondente no caso #9
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.underline(false);//retira o sublinhado
MSWord.tableinserttable(NumColumns:=1, NumRows:=1); //Insere uma tabela com uma linha e uma coluna
MSWord.TableSelectTable; //seleciona a tabela inteira
MSWord.TableAutoFormat(Format:= 27); //usa a auto formatacao de tabelas do Word a vigesima para ser exato muda forma da tabela max 30
MSWord.startOfRow;//coloca o cursor piscando no comeco da linha
MSWord.leftPara;//coloca o texto na esquerda
MSWord.insert('Vencimento Dias de Atrazo Valor');// escreve
MSWord.nextcell;//vai para a Proxima Celula como nao existe ainda ele cria outra linha
MSWord.tableselectRow;// seleciona a linha atual
MSWord.tableSplitCells(NumColumns:=3, NumRows:=1);//divide a celula em 3 colunas e 1 linha

while not DM_DADOS.CDS_RECEBER.Eof do
begin
MSWord.insert(DateToStr(DM_DADOS.CDS_RECEBERDT_VENCIMENTO.AsDateTime));// escreve
MSWord.nextcell;//proxima celula
MSWord.insert(DifDias(DM_DADOS.CDS_RECEBERDT_VENCIMENTO.AsDateTime,Date));// escreve
MSWord.nextcell;//proxima celula
MSWord.insert(FloatToStrF(DM_DADOS.CDS_RECEBERVL_RECEBER.AsFloat,ffCurrency,18,2));// escreve
if not DM_DADOS.CDS_RECEBER.Eof then MSWord.nextcell;//proxima celula
DM_DADOS.CDS_RECEBER.Next;
end;

aqui iriam as linhas de texto que completaria o documento