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

Код:

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