DOC в Delphi

[romanzi]

У меня при активации процедуры в программе,выкидает "Неверная команда",в чём ошибка?

procedure TForm19.Button1Click(Sender: TObject);
var
Wrd:Variant;
begin
Wrd:=CreateOLEObject('Word.Application');
try

 Wrd.Documents.Open(OpenDialog1.FileName);
 RichEdit1.Text:=Wrd.ActiveDocument.Content.Text;
finally
 Wrd.Quit;
  end;
end;

[SpyCrypt]

Я документа Вордовские открывал так.

……………
var
WordApp: Variant;
DocName, TxtName: string;
begin
………………..
DocName := f;
TxtName := ChangeFileExt(DocName, '.txt');
WordApp.Documents.Open(DocName);
WordApp.ActiveDocument.SaveAs(FileN ame := TxtName, FileFormat := 2);
WordApp.ActiveDocument.Close;
……………
result:=txtname;
end;

…..
Form1.Convert(OpenDialog1.FileName) ;
……