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

var
  Attr, k: Integer;
  Search: TSearchRec;
  D, FSize: String;
  F: Cardinal;
begin
  Attr := faArchive + faReadOnly + faHidden + faSysFile;

  Path := IncludeTrailingBackSlash(Path);

  with TStringList.Create do
  try
    CommaText := Mask;  //Mask kann zB *.* sein oder *.* *.ini etc. * wird aber als *.* interpretiert

    for k := 0 to Count - 1 do
     if FindFirst(Path + Strings[k], Attr, Search) = 0 then
      repeat
        {usw.}                    

1:

if FindFirst(Path + '???', Attr, Search) = 0 then Caption := Search.Name;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:

procedure TForm1.FindFile(Path, Mask: String);
var
  Attr, k: Integer;
  Search: TSearchRec;
  D, FSize: String;
  F: Cardinal;
begin
  Attr := faArchive + faReadOnly + faHidden + faSysFile;

  Path := IncludeTrailingBackSlash(Path);

  with TStringList.Create do
  try
    CommaText := Mask;

    for k := 0 to Count - 1 do
     if FindFirst(Path + Strings[k], Attr, Search) = 0 then
      repeat
       Application.ProcessMessages;
       if (Application.Tag = -2) or (Found = -1) then break;

       Label1.Caption := Path+Search.Name;
       Label1.Refresh;

       D := GetFileDate(Path+Search.Name);
       F := Search.Size;

       if (StrToDate(D) < VorFDate) and (StrToDate(D) > NachFDate) and
        (F < MinFSize) and (F >= MaxFSize) then
        if Is_LabeledEdit2Text_InFile(Path+Search.Name) then
         if not (AnsiLowerCase(ExtractFileExt(Search.Name)) = Ext) then
       begin
        Inc(FileCount);
        if FileCount > 1 then StringGrid1.RowCount := StringGrid1.RowCount+1;
        StringGrid1.Cells[0,FileCount] := Search.Name;
        StringGrid1.Cells[1,FileCount] := Path;

        FSize := SysUtils.FormatFloat('#,#', F);
        if FSize = '' then FSize := '0';
        while Length(FSize) < 12 do FSize := ' '+FSize;
        StringGrid1.Cells[2, FileCount] := FSize;
        StringGrid1.Cells[3, FileCount] := GetFileTime(Path+Search.Name)+' '+D;
        StringGrid1.Cells[4,FileCount] := FGetFileAttr(Path+Search.Name);
        if CheckBox2.Checked then
         if not (LabeledEdit2.Text = '') then
          StringGrid1.Cells[5,FileCount] := IntToStr(Found);
        Label3.Caption := IntToStr(FileCount-1)+' Datei(en)';
        Label3.Refresh;
       end;

      until FindNext(Search) <> 0;

   SysUtils.FindClose(Search);

  finally Free end;

  if not RadioButton3.Checked then
   {Auch Ordner mit Attribut S H finden: faSysFile+faHidden}
  if FindFirst(Path + '*.*', faDirectory+faSysFile+faHidden, Search) = 0 then
  begin
   repeat
    {Hier nicht nötig:
     Application.ProcessMessages;
     if Application.Tag = -2 then break;}

    if ((Search.Attr and faDirectory) = faDirectory) and
      (Search.Name[1] <> '.') then
      FindFile(Path + Search.Name, Mask);
   until FindNext(Search) <> 0;

   SysUtils.FindClose(Search);
  end;
end;                    

1:
2:
3:
4:

if Is_LabeledEdit2Text_InFile(Path+Search.Name) then
 if not (AnsiLowerCase(ExtractFileExt(Search.Name)) = Ext) or
  (AnsiLowerCase(ExtractFileExt(Search.Name)) = '') then
{...}                    

1:
2:
3:

if Is_LabeledEdit2Text_InFile(Path+Search.Name) then
 if not (AnsiLowerCase(ExtractFileExt(Search.Name)) = Ext) then
{...}