[lmikle]

переключение режима попало в блок try..except.
Мне кажется, что должно быть как-то так:

Код:

procedure Loadfile;{Процедура поиска и загрузки файлов JPEG}
begin
  if n=0 then {Если это первая загрузка}
    begin
      if FindFirst ('*.jpeg',faAnyFile,srf)<>0 then exit;
      n:=1;{Следующая загрузка будет уже не первой}
      {Ищем самый первый JPEG-файл в папке, если не находим выход из процедуры}
      try{Пробуем его загрузить в Image1}
        Form1.Image1.Picture.LoadFromFile(srf.Name);
      except {Это вовсе не JPEG}
        {Выводим сообщение}
        st:='Неправильный формат файла'+srf.Name;
        Application.MessageBox(Pchar(st),'Error',MB_OK);
        exit{Выход из процедуры}
    end;
  end else {Если эта загрузка уже не первая}
    begin
      if FindNext(srf)=0 then
        {Если =0, то найден следующий файл}
        try {Пробуем его загрузить в Image1}
          Form1.Image1.Picture.LoadFromFile(srf.Name)
        except {Это вовсе не JPEG}
          {Выводим сообщение}
          st:='Неправильный формат файла'+srf.Name;
          Application.MessageBox(Pchar(st),'Error',MB_OK);
          exit{Выход из процедуры}
    end
  else {А если не 0 - значит файлов больше нет}
    begin
      FindClose(srf); {Закрываем поиск}
      n:=0;{В следующий раз начнем сначала}
    end;
  end;
end;