Проблема с поиском файлов

[kta87]

При таком коде поиск файлов происходит во всех поддиректориях I:\tut\

procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then begin
        List.Add(StartDir + SearchRec.Name);
 {***}      
      end
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then begin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  ScanDir('I:\tut\', '*.*', ListBox1.Items);
  ShowMessage('Загружены все файлы');
  for i:=0 to ListBox1.Count-1 do
    DeleteFile(ListBox1.Items.Strings[i]);
  ShowMessage('Все файлы удалены');
end;
end.

, но стоит мне указать , что файлы нужно искать и удалять с определенным расширением , к примеру

  ScanDir('I:\tut\', '*.txt', ListBox1.Items);

, так поиск осуществляется только в директории 'I:\tut\' . Подскажите как сделать так что бы файлы определенного расширения искались тоже с поддиректориями?

[Kotofff]

Изучи мой пост №3 в этой теме.

[Serge_Bliznykov]

поиск.. обсуждалось многократно!

вот здесь я об этом писал

не поленюсь повториться:
когда Вы задаёте маску, то будут находится файлы и поддиректории с указанной маской!!!!

а ещё вот здесь было обсуждение и примеры кода:
http://www.programmersforum.ru/showthread.php?t=70770
посты #20 (при необходимости поправка на маску из пост #22) - дают готовый результат!