procedure TMainF.Button8Click(Sender: TObject);
begin
  OpenDialog1.Create(nil);
  OpenDialog1.Filter := '自定义文件|*.png;*.jpg;*.bmp';               // 筛选文件类型
//  OpenDialog1.DefaultExt := '*.png';                             // 默认文件类型
  OpenDialog1.Execute();                                          // 打开文件选择器
//  Edit2.Text := OpenDialog1.FileName;                          // 返回文件的完整目录
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);            // 向 Image中添加本地图片
end;