Estimado Arnol125:
Tal como señaló roman, debes añadir la unidad jpeg en el
uses.
Además debes modificar el siguiente código, ya que no son necesarias las líneas que eliminé puesto que tienes una máscara en el FileListBox1 que permite seleccionar sólo archivos .jpg
Código Delphi
[-]procedure TImageForm.FileListBox1Click(Sender: TObject); begin
Image1.Picture.LoadFromFile(FileListBox1.Filename); Label1.Caption:=extractfilename(filelistbox1.FileName); end;
y debes agregar la siguiente línea en este procedimiento, puesto que no has asignado el archivo que debe mostrar el Image1 del ViewForm.
Código Delphi
[-]procedure TImageForm.ViewBtnClick(Sender: TObject);
begin
ViewForm.Image1.Picture.LoadFromFile(FileListBox1.Filename);
ViewForm.HorzScrollBar.Range := Image1.Picture.Width;
ViewForm.VertScrollBar.Range := Image1.Picture.Height;
ViewForm.Caption := Caption;
ViewForm.Show;
ViewForm.WindowState := wsNormal;
end;
y de esta manera tu programa funciona sin problemas.
Te sugiero además poner en True las propiedades Center, Incremental Display, Proportional y Strech del Image1, para que no se distorsionen las imágenes.
Espero haber podido ayudarte.
Salu2