Habe das Problem mit dem Unterordner wie folgt gelöst.
Code:
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
Path: string;
begin
Path := IncludeTrailingBackSlash(PathName);
try
//if FindFirst (Path + FileName, faDirectory, Rec) = 0 then
if FindFirst (Path+'*', faAnyFile, Rec) = 0 then
begin
Das auskommentierte ist der alte Befehl und das direkt darunter der neue. Und so beachtet das Programm dann auch die Unterordner. Ich halte euch weiter auf dem laufenden bzw. falls weitere Probleme auftauchen melde ich mich hier. Danke für eure bisherige Hilfe.