如何通过Delphi中的所有子目录搜索文件

procedure SearchFiles(const APath, AFileName: string; AFiles: TStrings);
var
  SR: TSearchRec;
  IsFound: Boolean;
begin
  IsFound := FindFirst(APath + '\*.*', faAnyFile, SR) = 0;
  try
    while IsFound do
    begin
      if (SR.Name <> '.') and (SR.Name <> '..') then
      begin
        if (SR.Attr and faDirectory) = faDirectory then
          SearchFiles(APath + '\' + SR.Name, AFileName, AFiles)
        else if SameText(SR.Name, AFileName) then
          AFiles.Add(APath + '\' + SR.Name);
      end;
      IsFound := FindNext(SR) = 0;
    end;
  finally
    FindClose(SR);
  end;
end;

var
  Files: TStringList;
begin
  Files := TStringList.Create;
  try
    SearchFiles('C:\MyFolder', 'myfile.txt', Files);
    if Files.Count > 0 then
      ShowMessage('文件找到：' + Files.Text)
    else
      ShowMessage('未找到指定文件');
  finally
    Files.Free;
  end;
end;