procedure clearFolder(folder: String);
var
sr:TSearchRec;
begin
if folder[length(folder)]<>'\' then
folder:=folder+'\';
if findFirst(folder+'*.*',faanyFile,sr)=0 then
begin
repeat
if sr.Attr and faDirectory=faDirectory then
begin
if (sr.Name<>'.') and (sr.Name<>'..') then
clearFolder(folder+sr.Name);
end
else
begin
deleteFile(folder+sr.Name);
end;
until findNext(sr)<>0;
findClose(sr);
RemoveDirectory(PAnsiChar(folder));
end;
end;