Unterverzeichnisse durchsuchen

[Kompon Ente]

Hi!

Hier mal meine aktuelle Funktion:

Delphi-Quellcode:

function TFrmMain.sucheWort(aDatei: String): Boolean;
var
  F: TextFile;
  line: String;
begin
  Result := False;

  try
    AssignFile(F, FPfad + aDatei);
    {$I-}
      Reset(F);
    {$I+}
    if not (IOResult <> 0) then
      while (not Eof(F)) do
      begin
        Readln(F, line);
        if (pos(UpperCase(FSuche), line) > 0) or (pos(FSuche, line) > 0) then
        begin
          Result := True;
          Break;
        end;
      end;
  finally
    {$I-}
      CloseFile(F);
    {$I+}
  end;
end;

Was muss ich denn ändern, damit auch die Dateien der Unterverzeichnisse angezeigt werden?