procedure TForm1.Button1Click(Sender: TObject);
begin
with TOpenDialog.Create(Self) do
begin
InitialDir := ExtractFileDir(Application.ExeName);
Filter := '*.doc(Word files)|*.doc|*.*(All files)|*.*';
if Execute then
begin
Edit1.Text := FileName;
ShellExecute(Handle, 'open', PChar(Edit1.Text), nil,
PChar(ExtractFileDir(Edit1.Text)), SW_SHOW);
end;
end;
end;