error con wordapplication y worddocument

[lookmydoom]

Que tal, tengo un problemita y quisiera que alguien me corrija un pequeño codigo que no lo entender por que no funciona. Se supone que el codigo deberia abrir un documento .doc y grabarlo en formato .txt

Me falto decir que para esto uso delphi 7 y office 2003 y que tambien antes de postear esto revice todos los post parecidos y ninguno me funciono

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const   
        p='c:\prueba\xxx.doc';
        p2='c:\prueba\zzz.txt';

var   Word: Variant;   Documento: Variant; 
begin   
  Word := CreateOleObject('Word.Application');
  Documento:=CreateOleObject('word.document');
  Word.Documents.Open(p);
  Documento.ConnectTo(Word.ActiveDocument);
  Documento.SaveAs(p2);
end;

Si le quito la parte de ConnecTo logra abrir sin problemas el documento, pero dejandocelo me sale un error de que el metodo ConnectoTo no es soportado por el objeto.