Ordner nach *.exe durchsuchen

[Flodding]

Delphi-Quellcode:

procedure ExeSearch(ADirectory: String);
var
  SR: TSearchRec;
begin
    if FindFirst('.\' + ADirectory + '\*.exe', faAnyFile, SR)=0 then
    begin
      repeat
        with form1 do begin
          ListBox1.Items.Add(sr.Name);
        end;
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
end;

ExeSearch(AdvSmoothListBox1.Items[i].ButtonCaption); ich habe 12 ordner die durchsucht werden sollen...

so wie es oben steht gibt er mir 12 mal den exenamen von meiner exe^^ aber schonmal ein fortschritt