Procedure so umbauen dass diese für dan ganze ordner gilt

[Dragon27]

Hallo,

ich habe folgenden Quellcode:

Delphi-Quellcode:

procedure Indizieren(Status:TListbox;Code:Tstringlist);
var   Index:Tstringlist;
pfad:String;
i,v:integer;
begin
Index:=Tstringlist.create;
Pfad:=ExtractFilePath(ParamStr(0));
Index.LoadFromFile(Pfad+'\Comp\Index01.ind');
Status.Items.Add('Pfade wurden intilaisiert..');
formatcode(code);
for i:=0 to code.Count-1 do begin

if Uppercase(code[i])=Uppercase('Inputoptions') then begin
Status.Items.Add('Inputsection gefunden!');
v:=i;
  while Uppercase(code[v+1])<>Uppercase('Inputoptions end') do begin
    v:=v+1;
    Index.Add(code[v]);
    Status.Items.Add('Hinzugefügt: '+code[v]);
  end;

end;

end;

Index.SavetoFile(Pfad+'\Comp\Index01.ind');
index.Free;
end;

Nun würde ich gerne diese Procedure so schreiben, dass ich oben einen Ordnerpfad angeben kann und er alle dateien (Jetzt nur eine also: code) bearbeitet. So sollte der Procedurkopf aussehen:

procedure Indizieren(Status:TListbox;Orderpfad:String);

Index liegt immer im gleichen Pfad. Die Dateien haben die Endung *.les. Nun könnte man das mit einer Filelistbox machen aber ich möchte das ganze ohne Komponente gestalten. Habt Ihr eine Idee?

Danke für die Hilfe!!!