Delphi-PRAXiS - Delphi Inhalt eines ordners löschen...

hi
ich will den inhalt eines ordners löschen, um genau zu sein den recent ordner

erstma guck ich ob ich einen benutzernamen brauche (Win2000) um den ordner zu finden, und setz den gegebenenfalls ein

dann fang ich an zu suchen und eine datei nach der anderen per findfirst/findnext/deletefile zu löschen

doch irgendwas funktioniert da nicht

hier der code:

Delphi-Quellcode:

			if CheckBox1.Checked                            //Recent

then  begin

      temp:=pos(recentdir,'%username%');

      if temp<>-1                                       //wenn username ersetzt werden muss

      then  begin

            delete(recentdir,temp,10);                  //platzhalter löschen

            insert(LabeledEdit1.Text, recentdir, temp); //name einfügen

            end;

      findfirst(recentdir+'\*.*',faAnyFile,ergebnis);   //ersten suchen

      repeat

      deleteFile(ergebnis.Name);                        //löschen

      until FindNext(Ergebnis)<>0;                      //nächsten suchen bis keiner mehr da ist

      findclose(Ergebnis);

      end;