Suponiendo que tienes uno de cada uno de estos componentes:
Button
Image
OpenDialog ***este ultimo debe validarse para que solo permita seleccionar archivos de imagen***
solo tendrias que poner en el evento onclick del boton algo como esto:
Código Delphi
[-]
if(OpenDialog1->Execute())
esta en c++ pero no hay mayor problama para que lo pases a pascal
saludos