problema al manupular archivos .doc

[lookmydoom]

Buenas a todos, estoy haciendo una aplicacion para leer el contenido de los archivos .doc de word sin necesidad de abrirlo puesto que e probado varios codigos del foro y unos cuantos termian abriendo el word y eso es lo que no deceo, puesto que al final al aplicacion terminaria abriendo muchas ventanas de word, el codigo siguiente es un ejemplo de lo que estoy haciendo

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, comobj, OleServer, WordXP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  WordApp,doc: OleVariant;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WordApp:=ComObj.CreateOleObject('Word.Application');
wordapp.visible:=false;
doc:=ComObj.CreateOleObject('Word.Document');
wordapp.documents.open('c:\prueba.doc');
doc.ConnectTo(wordapp.ActiveDocument);
end;

end.

El problema es que no logro conectar el wordapplication con el worddocument.

En resumen lo que necesito hacer es leer el contenido del documento .doc pero sin necesidad de abrir el word para hacer busqueda de palabras para luego cerrar el documento y continuar con el siguiente, en caso que no se pueda leer el contenido me gustaria trasnformarlo a .txt pero tampoco me funcion la funcion save de los TWordDocuments