Rekursive Suche

[Cosamia]

Hallo zusammen,

ich habe derzeit ein kleines Problem.
Ich muss eine bestimmte Zeile aus einem Dat-File (Text-File) auslesen und in eine Datenbank schreiben.
Hinzu kommt noch der Dateiname.

Jetzt habe ich das Problem mit der rekursiven Suche. Mein Program läuft in das erste Unterverzeichnis, findet dort keine Dat-Datei und hört auf zu suchen.

Hat mit jemand evtl. ein tip, was ich falsch gemacht habe.

Delphi-Quellcode:

procedure TGetallFiles.BtnGoClick(Sender: TObject);
var mask :String;
begin
   Getallfiles.Table1.Open;
   if not(rightStr(Path.Text,1)='\') then Path.Text:=Path.Text+'\';
   mask := Path.Text+'*.'+Ext.Text;
   FStopSearch := FALSE;
   if DirectoryExists(Path.Text) then getFiles(mask);
end;

procedure TGetallFiles.getFiles(mask: string);
var n:Integer;  verz,such,nummer:String;

  function IsInteger(nummer:String):Boolean;
    var err:Integer; zahl:Real; search : Tsearchrec;
    begin
      val(nummer,zahl,err);
      result := (err=0);
    end;

begin
{ Pfadname noch setzen }
  verz := ExtractFilePath(mask);
  verz := IncludeTrailingBackslash(verz);
  such := ExtractFileName(mask);

  { Jetzt beginnt die Suche }
  if FindFirst(mask,$23,Search)=0 then
    repeat
      { Gefunden , also einfügen !  }
      //Insert  (verz+Search.name);
      Content.Items.LoadFromFile(verz+search.name);

            prcode    := content.Items[22];
            nummer    := search.Name;
            if pos('.',nummer)<>0 then nummer := copy(nummer,1,pos('.',nummer)-1);
            if IsInteger(nummer) then

             if not Table1.FindKey([nummer]) then
              begin
                table1.edit;
                Table1.FieldByName('Produktionsnummer').AsString := prcode;
                Table1.FieldByName('Auftragsnummer').AsString    := nummer;
                table1.Append;
                table1.Post;
              end;

      Application.ProcessMessages;
    until (FindNext(Search)<>0)or(FStopSearch=TRUE);

   { Unterverzeichnisse durchsuchen }
   if FindFirst(verz+'*.*',faDirectory,Search)=0 then
    repeat
     if ((search.Attr and faDirectory)=fadirectory)and(search.Name[1]<>'.') then
         GetFiles(verz+Search.Name+'\'+such);
    until (FindNext(Search)<>0)or(FStopSearch=TRUE);
end;

Danke im voraus.