ahhh!!, si notas que se tarda mucho, entonces te recomiendo que hagas lo siguiente:
Dentro de la función GetDocAsTxt hay dos lineas que dicen asi:
Código Delphi
[-]
WordApp.ActiveDocument.Close;
WordApp.Quit;
esas dos remplazala por estas:
Código Delphi
[-]
ShellExecute(Application.Handle, nil, 'tskill', 'WINWORD', nil, SW_HIDE);
Sleep(100);
y no olvides añadir en el
uses la unit ShellApi si vas a trabajar con ShellExecute,
saludos,
aeff!!