ProgressBar benutzen, obwohl Ergebnis unbekannt

[Smeivel]

Einen schönen guten Tag! ich habe folgendes Problem:
Ich hab eine Funktion gefunden, die es mir erlaubt alle Dateien eines Ordners anzeigen zu lassen, auch die, die sich in Unterordnern befinden. Das klappt auch alles wunderbar, doch würde ich gerne, um dieses Programm ein wenig benutzerfreundlicher zu machen eine ProgressBar einbauen, die anzeigt wieviele Prozent die Dateien, die bisher gefunden wurden von der Anzahl der ingsgesamt gefundenen Datein später ausmachen. Das ist soweit alles kein Problem, doch weiß ich nicht wie ich vorher herauskriege wieviel Dateien ich später finden werde.

Delphi-Quellcode:

procedure TForm1.GetFiles(const Path: string);
var
  SearchRec: TSearchRec;
  p: string;
begin
  p := path + '*.*';
  if FindFirst(p, faAnyFile, SearchRec) = 0 then
  begin
   repeat
     if (SearchRec.Attr and faDirectory) = faDirectory then
     begin
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        GetFiles(Path + SearchRec.Name + '\');
     end
     else Form1.Memo1.Lines.Add(Path + SearchRec.Name);
   until
     FindNext(SearchRec) <> 0;
   FindClose(SearchRec);
  end;
end;

vielen Dank schonmal für die Hilfe