COM - relatorios no word

var

  AMTexto : Variant;

begin

  AMTexto := CreateOleObject('Word.Basic');

  AMTexto.AppShow;

  AMTexto.FileNew;

  FileSaveAs('c:\temp\test.txt', 3);

  AMTexto.Font('ARIAL',13);

  AMTexto.Insert(TbEmpresaDescricao.Text + #13);