Mehrere Dateien nach String durchsuchen

[foxy]

hmmm thx ich versuch das glei mal ich habs bischer bissal anders gemacht

Code:

s:=UpperCase(DrivecomboBox1.Drive);
     EditDatei.Text:=s+':\*.txt';
     If FindFirst(EditDatei.Text,faAnyfile,searchrec)=0 then begin
        Display;
     end
     else begin
       ShowMessage('Nichts gefunden');
       EditCharge.Clear;
       exit;
     end;
     AssignFile(f,EditDatei.text);
    {$i-}
        Reset(f) ;
    {$i+}
    if IOResult <>0 then
    begin
      ShowMessage ('Fehler: Datei kann nicht geöffnet werden');
      EditCharge.Clear;
      exit;
    end;
  end;

so hab ich das gemacht aber ich versuch das andere dann ma ... mein bsp ging bei eienr datei wunderbar ... ich versuchs einfach