Delphi 7: Вывести N диеркторий в заданной (без рекурсии вложенных папок)

[hexor_boo]

В своём коде запутался.
Даже переформулировать его сюда проблема объяснять значения переменных.
Или переделывать под псевдо-язык.
Ищу рабочие примеры с правильным использованием FindFirst, FindNext.

[hexor_boo]

 Procedure CategoriesTreeUpdate(strCategory : String);
  Var
   searchResult : TSearchRec;
   nodeRoot     : TTreeNode;
   i            : Integer;
   intLicLimit  : Integer;
   intUseLimit  : Integer;
  Begin

    Case frmMain.Tag Of //frmMain.Tag=1
     0 : intLicLimit:=3;
     1 : intLicLimit:=6;
     2 : intLicLimit:=4000000;
    End;

   intUseLimit:=0;

   frmMain.treeCategories.Items.Clear;
   nodeRoot:=frmMain.treeCategories.Items.Add(Nil, ProjectsDrive);

   //Inc(intUseLimit, 1);

    If (FindFirst(ProjectsDrive+'\*', faDirectory, searchResult)=0) Then
     Begin

       Repeat
        
         If ((searchResult.Attr Or faDirectory)=faDirectory) Then
          Begin
            If (searchResult.Name<>'.') And (searchResult.Name<>'..') Then
             Begin
              frmMain.treeCategories.Items.AddChild(
               nodeRoot, searchResult.Name
              );
              Inc(intUseLimit, 1);
             End;
          End;


        
       Until ((FindNext(searchResult)<>0) Or (intUseLimit=intLicLimit));

      FindClose(searchResult);
     End;

   frmMain.treeCategories.Items.GetFirstNode.Expand(True);

    If Not (strCategory='') Then
     Begin
      SelRec.Category:=strCategory;

       For i:=0 To frmMain.treeCategories.Items.Count-1 Do
        Begin
          If (frmMain.treeCategories.Items[i].Text=strCategory) Then
           Begin
            frmMain.treeCategories.Selected:=frmMain.treeCategories.Items[i];
            frmMain.treeCategories.SetFocus;
          End;
        End;

     End; //If Not (strCategory='') Then

  End;

Сам нашёл рабочее решение. Выводит intLicLimit папок в текущей директории.

[p51x]

Флаги через ИЛИ проверять - что-то новое.

[hexor_boo]

Сообщение от p51x

Флаги через ИЛИ проверять - что-то новое.

Я где-то нашёл фрагмент исходника и подправил под свои цели.
Я туда внедрял проверку флага через ИЛИ, либо нет - не помню.
Однако решение работает и именно так, как нужно.

[hexor_boo]

Сообщение от p51x

Флаги через ИЛИ проверять - что-то новое.

Нужно через And - правильно понимаю?