DeleteFiles + FindNext

[Ghostleader]

Ich möchte alle *.txt Dateien in einem bestimmten Ordner in C:\... löschen.
Mein Code:

Delphi-Quellcode:

procedure TFmDeleteVocabularies.BtDeleteVoksClick(Sender: TObject);
var

  //Variablen für die Schleife
    SearchRec: TSearchRec;
    r: Integer;
  //Variablen Ende
begin
   MeDelVoks.Clear;
   MeDelVoks.Lines.Add('Folgende Dateien wurden gefunden: ');

   //Schleife
     r := FindFirst('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT', faAnyFile,SearchRec);
     while r = 0 do
      begin
       MeDelVoks.Lines.Add(SearchRec.Name);
       DeleteFile(SearchRec.Name);
       r := FindNext(SearchRec);
      end;
     FindClose(SearchRec);
     ShowMessage('Dateien wurden gelöscht');
  //Schleife Ende
end;

Mein Problem:
Es geschieht einfach nichts! Pfad hab ich schon überprüft. Kann mir jemand helfen?

Mfg Ghost