[Bargest]

по событию Image1Click:

Код:

if OpenDialog1.Execute Then
  winexec(OpenDialog1.FileName, SW_SHOW);

а в редакторе свойств в поле filter пишешь *.exe

А вообще про OpenDialog уже было в разделе "начинающим".