Wenn Du im Taskmanager nachschaust, wirst Du feststellen, dass Word noch läuft (und das geöffnete Dokument nicht geschlossen wurde und (vermutlich) jeder ButtonClick eine weitere Wordinstanz erstellt).
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
vParam : OleVariant;
begin
// Aktuelles Dokument unter neuem Namen speichern.
WordApp.ActiveDocument.SaveAs('D:\Test2.docx');
// Aktuelles Dokument (ohne Änderungen zu speichern) schließen.
vParam := wdDoNotSaveChanges;
WordApp.ActiveDocument.Close(vParam);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
WordApp.Quit; // Word beenden.
WordApp := Unassigned;
end;