Ler dados do Word com o Delphi

procedure percorreArquivoTexto ( nomeDoArquivo: String );
var arq: TextFile;
linha: String;
begin
AssignFile ( arq, nomeDoArquivo ); //nome e caminho do arquivo por exemplo: ´c:\arquivo.doc´
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do
begin
// Processe a linha lida aqui.
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;