[[seoane]]

Código Delphi [-]

procedure TformInventarios.proCargarImagenes(Im: TImage; ruta: String; imagen: String);
var
ImgExt: String;
begin
  Im.Stretch:= True;
  try
    Im.Picture.LoadFromFile(ruta + imagen + '.JPG');    
  except
     ShowMessage('No puedo cargar la imagen');
  end;
end;