поиск слова в файле с учетом всех папок и подпапок

[alex89d]

Доброго времени суток! Помогите доработать код до логического завержения. Нужно дописать функцию поиска в папке и подпапках

function SearchFiles(const aPath, aMask, aTemp : String) : TStringList;
var
Fs : TFileStream;
Sr : TSearchRec;
Attr : Integer;
FileName, S : String; //AnsiString;
IsFound : Boolean;
begin
Path := aPath;
Path := IncludeTrailingPathDelimiter(Path);
Attr := faAnyFile - faDirectory - faVolumeID;
Result := TStringList.Create;
try
if FindFirst(Path + '*.xml', Attr, Sr) = 0 then
repeat
IsFound := True;
if aTemp <> '' then begin
FileName := Path + Sr.Name;
try
Fs := TFileStream.Create(FileName, fmOpenRead + fmShareDenyNone);
SetLength(S, Fs.Size);
Fs.Read(S[1], Fs.Size);
FreeAndNil(Fs);
IsFound := Pos(aTemp, S) > 0;
except
IsFound := False;
end;
end;
if IsFound then Result.Add(Sr.Name);
until FindNext(Sr) <> 0;
finally
FindClose(Sr);
end;
end;

[Stilet]

http://www.programmersforum.ru/showthread.php?t=6639
Годится идея?