Hola.
Te pongo un ejemplo genérico. Coloca un
TButton, un
TImage (pestaña
Additional), un
TOpenDialog (pestaña
Dialogs) y el siguiente código en el evento
OnClick del Button:
Código Delphi
[-]
...
implementation
uses Jpeg;
procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
begin
Filter := 'Archivos de imágenes | *.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf';
if Execute then
Image1.Picture.LoadFromFile(FileName); end;
end;
...
Saludos.