Delphi - Word

Boa Tarde!!!

Fiz uma funcao que abre qualquer aplicativo que possua aplicacao relacionada. (Word, Excel, Acrobat etc)
Mande seu e-mail que eu lhe envio. Nao estou com ela aqui.

Coloque ComObj no uses

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileOpen(´C:\Texto.DOC´);//Abre o documento
{ Imprime 1 cópia }
MSWord.ActiveDocument.PrintOut(Copies := 1);
ShowMessage(´Aguarde o término da impressão...´);
{ Para salvar... }
MSWord.ActiveDocument.SaveAs(FileName := ´c:\Texto.doc´);
{ Fecha documento }
MSWord.ActiveDocument.Close(SaveChanges := 0);
{ Fecha o Word }
MSWord.Quit;
end;