用TOpenDialog+TEdit+TSpeedButton
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text:=OpenDialog1.FileName;
    Do something yourself;
  end;
end;