Помогите составить код! Delphi 7

Я хочу написать программу, которая смогла бы удалить папки с вирусными программами.
Я прошу помощи в коде удаления папки по директории (Пример C:\Users\Пользователь\AppData\Roaming\MailProducts) Не знаю код. В интернете искал, не нашёл...
Код должен работать при нажатии кнопки

По дате

По рейтингу

0x1

Оракул

8лет

такая программа называется "антивирус", ты хочешь чтобы тебе коммерческий продукт кто-нибудь написал?

процедура, удаляющая все внутри указанного каталога:
procedure DelAllinFolder(const dir: string);
Var SR:TSearchRec;
FindRes:Integer;
begin
FindRes:=FindFirst(dir+'*.*',faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory)and(SR.Name<>'.')and(SR.Name<>'..') then
begin
DelAllinFolder(dir+SR.Name+'\');
RemoveDir(dir+SR.Name);
end;
if ((SR.Attr and faDirectory)<>faDirectory)and(SR.Name<>'.')and(SR.Name<>'..') then
DeleteFile(dir+SR.Name);

FindRes:=FindNext(SR);
end;
FindClose(SR);
end;