...
    appWord: TWordApplication;
    docWord: TWordDocument;
...

// Открытие MS Word
function TReportData.OpenWord( T : String ) : Boolean;
var Template : OleVariant;
begin
  try
    if Assigned(fProgress) then fProgress.SetStatus( 'Открытие Microsoft Word' );
    appWord.Connect;
    if T<>'' then Template := T else Template := EmptyParam;
    docWord.ConnectTo( appWord.Documents.Add( Template, EmptyParam, EmptyParam, EmptyParam ) );
    Result := True;
  except
    Result := False;
  end;
end;

// Закрытие MS Word
function TReportData.CloseWord : Boolean;
begin
  try
    if Assigned(fProgress) then fProgress.SetStatus( 'Закрытие Microsoft Word' );
    appWord.Visible := True;
    docWord.Disconnect;
    appWord.Disconnect;
    Result := True;
  except
    Result := False;
  end;
end;