Фото формата png, больше заданного размера и при этом название фото не соответствует названию папки (если включить чекбокс). должно вывести 2(3) ошибки, а выводит только одну

[Silver_Surfer]

Доброго времени суток! Уже долгое время ломаю голову, но никак не могу добиться корректного вывода информации. На примере расскажу: имеется фото формата png, больше заданного размера и при этом название фото не соответствует названию папки (если включить чекбокс). По логике должно вывести 2(3) ошибки, а выводит только одну. Как добиться корректного вывода информации? То есть чтобы я нажал кнопку, а мне сразу вывело 2 ошибки, включил чекбокс - соответственно 3.

procedure TForm1.ScanDir(StartDir: string; Mask: string; List: TStrings);
...
      begin
        if ((SearchRec.Size / 1024 / 1024) < maxS) and ((SearchRec.Size / 1024 / 1024) > minS) then
         if ExtractFileExt(StartDir + SearchRec.Name) = ext then
          begin
            if chk1.Checked then
            begin
              dirname := ExtractFileDir(StartDir + SearchRec.Name);
              Delete(dirname, 1, LastDelimiter('\', dirname));
              if dirname = Copy(SearchRec.Name,1,Pos('_',SearchRec.Name)-1) then
                List.Add(StartDir + SearchRec.Name)
              else
                List.Add('S' + StartDir + SearchRec.Name)
            end
            else
              List.Add(StartDir + SearchRec.Name)
          end
          else
            List.Add('S' + StartDir + SearchRec.Name)
        else
          List.Add('S' + StartDir + SearchRec.Name);
      end;
...

Код в Button1:

list := TStringList.Create;
  ScanDir(dir, '', list);
  for i := 0 to list.Count - 1 do
  begin
    try
      str := list.Strings[i];
      if (Copy(str, 1, 1) = 'S') then
      begin
        delete(str, 1, 1);
        lst1.Items.Add(str);
      end
    except
      lst1.Items.Add('Не получилось обработать: ' + str);
    end;

[NetSpace]

так, простая задача. ещё раз и по порядку, не смешивая всё в кучу.
---------------
1. убери всё лишнее из кода, пусть выводит чисто список всех файлов в папке.
2. как только добился работы пункта 1, то теперь приступай к написанию условий.

 (твой_чекбокс.Checked = True)then
  begin
   ...
 end;

а вот внутри этого условия в списке выискивай те имена, которые не соответствуют. и как ты ищешь: по названию или по размеру файла???? и тут же внутри этого условия сделай вывод на экран второго списка - списка этих неправильных имён.
3. если работает пункт 1 и пункт 2, то теперь ты в цикле сделай так, чтоб из первого списка убрались имена, которые есть во 2-м списке.
------------------
меня всегда бесили эти ELSE в условиях. старался обходиться без них.

[evg_m]

if ((SearchRec.Size / 1024 / 1024) < maxS) and ((SearchRec.Size / 1024 / 1024) > minS) then //если minS <=??? <=maxS (т.е. размеры корректны ) то 
//...проверяем дальше
         if ExtractFileExt(StartDir + SearchRec.Name) = ext then
          begin
        ...
??? // а если некорректны? НЕ проверяем???

по логике должно вывести 2(3) ошибки, а выводит только одну.

если хотим получить все ошибки, то каждая проверка д.б. независима

if размеры then OK else error_size ;
if ... then OK else error_... ;
if ...