procedure TImageEnViewForm.Button2Click(Sender: TObject);
var
  od: TOpenImageEnDialog;
begin
  od := TOpenImageEnDialog.Create( Self );
  od.Options := od.Options + [ ofAllowMultiSelect ];
  od.ModernDialog := True;
  if od.execute then
    ShowMessage( od.Files.Text );
  od.Free;
end;