DeleteFiles + FindNext

[Ghostleader]

Ich habs so verstanden:

Delphi-Quellcode:

r := FindFirst('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT', faAnyFile,SearchRec);
<-- Hier gibt man den Pfad an

while r = 0 do
      begin
       MeDelVoks.Lines.Add(SearchRec.Name);
       DeleteFile(SearchRec.Name);


     {Error Code?}
          if not DeleteFile(SearchRec.Name) then
          ShowMessage(SysErrorMessage(GetLastError));
<-- Hier entscheidet man was mit jeder gefundenen Datei geschieht.

     {Weiter zur nächsten Datei}
       r := FindNext(SearchRec);
      end;

Also oben hab ich den Pfad angegeben und zwar so, das alle Textdateien gemeint sind.
War das falsch?