Поиск файлов в каталоге. WinApi.

[pupilMartyr]

Здравствуйте. Задача такая. В выбранном каталоге программа производит поиск исполняемых файлов формата Win32PE (*.exe) и динамических библиотек (*.dll), с учетом подкаталогов.
Вот код:

procedure TForm1.FindFiles(dir: string);
  var SRexe, SRdll: TSearchRec;
      findResExe, findResDll:Integer;
      dir_copy: string;
begin
    dir_copy:= dir;

    findResExe:= FindFirst(dir + '*.exe', faAnyFile, SRexe);
    findResDll:= FindFirst(dir + '*.dll', faAnyFile, SRdll);

    while (findResExe = 0) do
    begin
        if ((SRexe.Attr and faDirectory) = faDirectory) then
        begin
            if not((SRexe.Name = '.') or (SRexe.Name = '..')) then
                FindFiles(dir + SRexe.Name + '\');
            findResExe:= FindNext(SRexe);
            Continue;
        end
        else begin
            sgFiles.RowCount:= sgFiles.RowCount + 1;
            sgFiles.Cells[0,sgFiles.RowCount - 1]:= SRexe.Name;
            sgFiles.Cells[1,sgFiles.RowCount - 1]:= IntToStr(SRexe.Size);

            findResExe:= FindNext(SRexe);
        end;
    end;

    while (findResDll = 0) do
    begin
        if ((SRdll.Attr and faDirectory) = faDirectory) then
        begin
            if not((SRdll.Name = '.') or (SRdll.Name = '..')) then
                FindFiles(dir_copy + SRdll.Name + '\');
            findResDll:= FindNext(SRdll);
        end
        else begin
            sgFiles.RowCount:= sgFiles.RowCount + 1;
            sgFiles.Cells[0,sgFiles.RowCount - 1]:= SRdll.Name;
            sgFiles.Cells[1,sgFiles.RowCount - 1]:= IntToStr(SRdll.Size);

            findResDll:= FindNext(SRdll);
        end;
    end;
    FindClose(SRexe);
    FindClose(SRdll);
end;

Конечно, повторение кода для dll, но это сейчас не так важно. Загвоздка в том, что файлы нужно находить и в подкаталогах, чего программа не делает. Хотя должна, т.к. я поверяю

  if ((SRexe.Attr and faDirectory) = faDirectory) then

Подскажите, пожалуйста, как решить эту проблему.
P.S. И заодно, может, проблему с повторением кода.

[pupilMartyr]

что никто не поможет?
Беда, беда (