[romanzi]

Я хочу что-бы моя программа читала doc файлы, но у меня выдаёт ошибку в то время когда я хочу загрузить файл - выдаёт "Ошибка адреса" или, что-то такое!

Код:

var
  Form5: TForm5;
  MSWord : OleVariant;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
 MSWord := CreateOleObject('Word.Application');
MSWord.Documents.Open(OpenDialog1.FileName);
end;

end.

[Страдалецъ]

Код:

procedure TForm5.Button1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then Exit;
MSWord := CreateOleObject('Word.Application');
MSWord.Documents.Open(OpenDialog1.FileName);
end;