1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure ...
  var
  Search : TSearchRec;
  Verz   : String;
begin
  Verz := epfadord.text;
  if FindFirst(Verz + '*.*' , faAnyFile, Search) = 0 then
    try
      repeat
        if (Search.Attr and faArchive) = faArchive then
          Listbox4.items.Add(Search.Name);
      until
        FindNext(Search) <> 0;
    finally
      SysUtils.FindClose(Search);
    end;					

1:

if (Search.Attr and faDirectory) = faDirectory then