[defcon1_es]

Hola. Prueba esto:

Código Delphi [-]
...
var WordApp: OleVariant;
...

procedure Liberar_Word;
begin
  if not VarIsEmpty(WordApp)
  then begin
    WordApp.DisplayAlerts := False;  
    WordApp.Quit;
  end;
end;