Fórum Emitir Carta, Executando Win-Word em Run Time pelo Delphi #401254

Olá, boa tarde!   Tenho o seguinte problema.   Tenho uma rotina q emite carta usando o Winword em modo oculto, até ai tudo bem, funciona normalmente. O problema é q quando fecho a aplicacao o WinWord continua ainda na memoria e seu eu executar novamente um novo processar é gerado e consecutivamente.   Alguem saberia como fechar a aplicacao Word q esta na memoria?     a quem puder responder, desde ja meus agradecimentos.   100+   ANT.CARLOS/SP           =============================================== procedure TFdlg_Carta_anivers.Imprimir();
var MSWord       : Variant;
    Dtextenso    : String;
    Ano          : Word;
    Anox         : Word;
    mes          : Word;
    Dia          : Word; // Usadas para calculo da idade
    Dtanivers    : String; begin Try
  Try
     MsWord := CreateOleObject('Word.Basic');
     Except on E: Exception do Begin
        ShowMessage('Houve o seguinte erro ao tentar inicializar o Microsoft Word : '+#13+E.message);
        abort;
        Exit;
     End;
  End;   Sql_Dados.First;
  While Not Sql_Dados.eof do Begin
      try
           MSWord.FileNew(Diretorio+'\Carta_aniversario.DOC');
      except
         on E: Exception do begin
         ShowMessage('Não foi possível criar um novo documento a partir do modelo devido ao seguinte erro:                                     #13+e.message);
         abort;
         end;
      end;       try
         {O primeiro parâmetro é a palavra que deverá ser encontrada no
         documento original e que será substituida pelo segundo parâmetro}
         MsWord.EditReplace('<Nome>',Sql_Dados.FieldByName('Nome').AsString,,,,,,,,1);
         MsWord.EditReplace('<Cep>',Sql_Dados.FieldByname('Cep').asString,,,,,,,,1);          DecodeDate(Date,Ano,Mes,Dia);
         Anox := Ano;
         DecodeDate(Sql_Dados.FieldByname('Dtnasc').asDateTime,Ano,Mes,Dia);
         Dtanivers := FormatFloat('00',Dia)+'/'+FormatFloat('00',Mes)+'/'+FormatFloat('00',Anox);
         Dtextenso := Trim(DMEMP.Sql_PesqEmpCidade.value)+'/'+DMEMP.Sql_PesqEmpUf.value+', '+DataExtenso                 (Date);
         MsWord.EditReplace('<Dtextenso>',Dtextenso,,,,,,,,1);
         MsWord.EditReplace('<Dtanivers>',Dtanivers,,,,,,,,1);
         MsWord.EditReplace('<Empresa>',DMEMP.Sql_PesqEmpadraoFantasia.value,,,,,,,,1);          MSWord.FilePrintDefault; {Imprime utilizando a impressora default}         MSWord.FileClose(2); {Finaliza o word sem salvar o documento criado}
      except
         on E: Exception do begin
            Screen.Cursor := crDefault;
            ShowMessage(E.Message);
         end;
      end;
      Sql_Dados.Next;
  End;
Finally
  MSWord.FileClose(2); {Finaliza o word se houver algum erro}
  Sql_Dados.close;
End;
End;
===============================================