1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 //WICHTIG - einbinden
 uses shellapi;
 ...
 
 //Befehl ausführen
 shellexecute(application.handle, 'explorer', pchar(''), nil, pchar(derPfad), sw_shownormal);
 
 //shellexecute(Handle, Aktion, Datei, ?, Pfad, AnzeigeModi);
 
 {

  Anzeigemodi:   - sw_shownormal (Fenster normal aufmachen);
     - sw_showminimized (Fenster minimiert öffnen);
    - sw_showmaximized (Fenster maximiert öffnen);

 }					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure VerzSuche;
var lstSearch, lstFound : TStringList;
    i : Integer;
    sr : TSearchRec;
    dir, dirMask, dirStart : String;
begin
  dirStart := 'C:\Programme';   // oder was immer als Startverz.
  dirMask := 'NAMEN';           // in deinem Fall
  lstSearch := TStringList.Create;
  lstSearch.Sorted := TRUE;
  lstSearch.Add(dirStart);
  lstFound := TStringList.Create;
  while lstSearch.Count > 0 do begin
    dir := lstSearch[0];
    lstSearch.Delete(0);
    i := FindFirst(dir + '\*', faDirectory, sr);
    while i = 0 do begin
      if sr.Name[1] <> '.' then begin  // '.' und '..' ignorieren
        if sr.Name = dirMask then lstFound.Add(dir + '\' + sr.Name)
        else lstSearch.Add(dir + '\' + sr.Name);
      end;
      i := FindNext(sr);
    end;
    FindClose(sr);
  end;
  for i := 0 to lstFound.Count - 1 do begin
    ShowMessage('Gefunden: ' + lstFound[i]); // da sind die Ergebnisse
  end;
  lstSearch.Free;
  lstFound.Free;
end;