Søgefunktion

Jeg har en component: FileSearch
Jeg har også en stumpkode:

procedure SaetBackSlash(var Mappe: string);
begin
  if Mappe[Length(Mappe)] <> '\' then
    Mappe := Mappe + '\';
end;

// Til at finde filerne:
function FindFiler(Mappe: string): string;
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  SaetBackSlash(Mappe);
  FindResult := FindFirst(Mappe + '*.*', faAnyFile, SearchRec);
  try
    // Søg først efter filer
    while FindResult = 0 do
    begin
      Inc(X,1);
      Form1.lbFiler.Items.Add(AnsiLowerCase(Mappe + SearchRec.Name));
      Form1.Label1.Caption := SearchRec.Name + ' - ' + IntToStr(SearchRec.Size) + ' - ' + IntToStr(X);
      Form1.Label1.Update;
      FindResult := FindNext(SearchRec);
    end;
    // Søg dernæst efter mapper
    FindResult := FindFirst(Mappe + '*.*', faDirectory, SearchRec);
    // Hvis mapperne ikke er '.' og '..',
    // så søg videre i disse mapper (rekursivt)
    while FindResult = 0 do
    begin
      if ((SearchRec.Attr and faDirectory) = faDirectory) and
        (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        FindFiler(Mappe + SearchRec.Name);
      FindResult := FindNext(SearchRec);
    end;
  finally
    FindClose(SearchRec);
  end;
end;

og jeg har Windows Søgefunktion

------------------------

Mit problem
Min søgefunktion skal finde ALLE, og jeg MENER ALLE filer på en Harddisk eller en mappe.

Men de 3 søgefunktion jeg har fået fat i: Giver IKKE det samme resultalt.
Og jeg har checket om jeg tæller mapper med eller ej.

//dl

Jeg skal have en søge funktion som virker :)  hvor finder jeg sådan en ... eller laver den ?