Visor de Imágenes Delphi 7

[radenf]

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); //creo que aqui esta el error
begin
Image1.Picture.LoadFromFile(FileListBox1.Filename); // cargar imagen en el image1
Label1.Caption:=extractfilename(filelistbox1.FileName); // cargar nombre del archivo en el label
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