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

  var SR : TSearchRec;
    iSearchAtt:Integer;
  begin
    if FindFirst(AFilePath + '*.*', faAnyFile-faArchive, SR) = 0 then try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') then begin
          Form1.Memo1.Lines.Add(sr.Name);
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;					

1:
2:

    if FindFirst(AFilePath + '*.*', faArchive, SR) = 0 then
      try					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  Search : TSearchRec;
  Verz   : String;
begin
  Verz := 'h:\';
  Memo1.Clear;
  if FindFirst(Verz + '*.*', faAnyFile, Search) = 0 then
    try
      repeat
        if (Search.Attr and faArchive) = faArchive then
          Memo1.Lines.Add(Search.Name);
      until
        FindNext(Search) <> 0;
    finally
      SysUtils.FindClose(Search);
    end;
end;