Uses ComObj;

Var WordApp:variant;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Démarrer Word
WordApp:=CreateOleObject('Word.Application'); //Crée un objet unique non initialisé de la classe spécifiée par le paramètre 'Word.Application'
WordApp.Application.Visible:=True; //Rends l'application Word visible
WordApp.Documents.Add; //Crée un nouveau document
WordApp.Selection.InsertAfter('Test'); //Insére du texte
WordApp.ActiveDocument.PrintOut; //Imprime le document actif
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Fermer Word
WordApp.Quit;
WordApp:=UnAssigned;
end;