[Resolvido] Imprimir .doc em matricial

Olá pessoal!

Pesquisei pela internet e não consegui tirar uma dúvida:

Tem como imprimir um documento em impressora matricial em modo caracter a partir de um .doc?

Pelo que eu vi é possível fazer o seguinte:

procedure
var
T : TextFile;
begin

 AssignFile(\'LPT1\',T);
 Rewrite(T);
 WriteLn(\'Texto\');
 CloseFile(T);

end;Mas esse arquivo pode ser um .doc?Se puder, seria então algo assim?

procedure TForm1.ImprimirClick(Sender: TObject);
var

 arq : TextFile;
 arquivo : TextFile;
 dados : string;

begin

 AssignFile(arq,'c:\arquivo.doc');
 Reset(arq);
 AssignFile(Arquivo,'LPT1');
 Rewrite(arquivo);
 while not eof (arq) do begin
 Readln(arq, dados);
 Writeln(arquivo, dados)
 end;
 Writeln(arquivo,#12); //ejeta a página
 CloseFile(arq);
 CloseFile(arquivo);
end;