void DeleteFiles (AnsiString path){ TSearchRec sr; if (FindFirst(path+"\\*.*", faAnyFile, sr) == 0) { do { if (sr.Attr & faDirectory) { if (sr.Name!=".") if (sr.Name!="..") { DeleteFiles(path+sr.Name+"\\"); } } else { DeleteFile (path+sr.Name); } } while (FindNext(sr) == 0); FindClose(sr); }}