Probleme beim Löschen eines Ordners

[Helmi]

ich hab jetzt meinen fehler gefunden warum ich die thumbs.db nicht löschen konnte

hier der "verbesserte Code":

Code:

procedure TForm1.Button3Click(Sender: TObject); 
var 
  sr: TSearchRec; 
  FileAttrs: Integer; 

begin 
  FileAttrs := 0; 

  FileAttrs := FileAttrs + faHidden; 
  FileAttrs := FileAttrs + faSysFile; 
  FileAttrs := FileAttrs + faVolumeID; 
  FileAttrs := FileAttrs + faDirectory; 
  FileAttrs := FileAttrs + faArchive; 
  FileAttrs := FileAttrs + faAnyFile; 

  If FindFirst(Edit1.Text + '\*.*', FileAttrs, sr) = 0 then 
    begin 
      repeat 
        if (sr.Attr and FileAttrs) = sr.Attr then 
        begin 
          showmessage(sr.Name); 
          showmessage(IntToStr(ord(deletefile(Edit1.Text + '\' + sr.Name)))); 
        end; 
      until FindNext(sr) <> 0; 
      FindClose(sr); 
    end; 
end;

Jetzt ist zwar der Ordner bis auf "." und ".." leer, aber löschen kann ich ihn immer noch nicht