Leer archivo Word y pasarlo a una base de datos

[jennyprogra]

bueno hice esto y creo que si me abre el word ahora lo que estoy intentando es leer lo que tiene el documento word y pasarlo a un txt pero el word me abre y me tira un monton de caracteres extraños y a la hora de mandarlo a un txt me manda los mismos caracteres porfa ayudenme !!!!

uses
SysUtils,
Variants,
adodb,
ActiveX,
Classes,
ComObj;

var
valores1:string;

Datos : TextFile;
f : textfile;


I : Integer;
begin

AssignFile (Datos, 'C:\pru.doc');
assignfile(f,'C:\test.txt');

Reset (Datos);

I := 1;

While Not Eof (Datos) do

begin

Readln (Datos, valores1);
if fileexists('C:\test.txt') then append(f) else rewrite(f) ;
writeLn('Escribiendo linea en el txt');
writeln(f,valores1);
closefile(f);
end;

CloseFile (Datos);
readln;

end.