function SearchFile(Dir, fnx: String; inList: TStrings): boolean;
var mySR : TSearchRec ;
    FileList, DirList: TStringList;
    i : integer ;
begin
   result := false ;
   DirList := TStringList.Create;
   if findfirst(IncludeTrailingBackSlash(DIR)   '*.*', faAnyFile, mySR) = 0 then
   begin
      if (MySR.Attr and faAnyFile <= $0000003F) and (MySR.name <> '..')
        and (MySR.Name <> '.') THEN
          if ((MySR.Attr and $00000010)=$00000010) then
            DirList.add(IncludeTrailingBackSlash(Dir) MySR.name);
      while Findnext(mySR) = 0 do
      begin
         if (MySR.Attr and $0000003F <= $0000003F) and (MySR.name <> '..')
           and (MySR.Name<>'.') THEN
             if (MySR.Attr and faDirectory = $00000010) then
               DirList.add(IncludeTrailingBackSlash(Dir) MySR.name);
         if (MySR.Attr and faDirectory <> $00000010)
           AND (MySR.Attr and faHidden <> $00000002) then
              if (pos(fnx, IncludeTrailingBackSlash(dir)   MySR.Name)>0) then
                 inList.add(IncludeTrailingBackSlash(Dir) MySR.name);
      end ;
   end ;
   if (DirList.Count > 0) then
      for i := 1 to DirList.count do
      begin
         SearchFile(DirList.Strings[i-1], fnx, inList);
      end;       FindClose(mySR);
   result := true ;
end ;    procedure TForm1.Button3Click(Sender: TObject);
begin
  // 尋找 C:\ 下所有檔名為 Project1.exe 的檔案, 有分大小寫)
  Searchfile('C:\', 'Project1.exe', ListBox1.Items);
  ShowMessage('搜尋完成!');
end;

function SearchFile(Dir, fnx: String; inList: TStrings): boolean;
var mySR : TSearchRec ;
    FileList, DirList: TStringList;
    i : integer ;
begin
   result := false ;
   DirList := TStringList.Create;
   if findfirst(IncludeTrailingBackSlash(DIR)   '*.*', faAnyFile, mySR) = 0 then
   begin
     StatusBar1.Panels[0].Text := mySR.Name; // 用個 TStatusBar, 加上這兩行試試
     StatusBar1.Refresh;
     // ...
end ;