Criando um Cleaner para Combat Arms

Primeiro adicione:
1 Edit
10 Checkboxes
2 Buttons

Foto do meu cleaner:

PS:
O XPManifest e o Timer não são necessários, pois no meu cleaner o
timer é para mostrar as horas na Status Bar e o XPManifest para deixar
o clenaer mais bonito.

O edit você bota Enable como
False, e no código do Button "Mudar" você bota que se o Edit estiver
Enable False, ele virá True e se vice versa. No button "Limpar" vai
ser um pouco mais complicado...

Primeiro você declara a seguinte variável:

Código PHP:

SearchRec : TSearchRec;

Depois nos devemos adiconar o que o Cleaner vai mostrar se não estiver nada selecionado, mas como? Simples:
Código PHP:

if (CheckBox1.Checked=False) and (CheckBox2.Checked=False) and (CheckBox3.Checked=False) and (CheckBox4.Checked=False) and (CheckBox5.Checked=False) and (CheckBox6.Checked=False) and (CheckBox7.Checked=False) and (CheckBox8.Checked=False) and (CheckBox9.Checked=False) then
MessageBox (Handle, 'Por favor, selecione algum arquivo para ser excluido!', 'Erro', MB_ICONERROR+MB_SYSTEMMODAL);

Depois nos vamos fazer com que o cleaner só delete oque foi selecionado, usando o seguinte código:
Código PHP:

if CheckBox1.Checked=True then
try
FindFirst( Edit1.Text+'*.txt', faAnyFile, SearchRec );
repeat
DeleteFile( Edit1.Text + SearchRec.name );
until FindNext( SearchRec ) <> 0;
finally
FindClose( SearchRec );
end;

Como
vocês podem ver, nós falamos para o Delphi excluir todos os arquivos
com a extensão .txt de uma seguinte pasta que seria a pasta do Edit1.
Lembrando que esta pasta sempre deve terminar com "" e que você deve
botar este código para cada checkbox, mas deve mudar a extensão
de acordo com cada checkbox.

Agora nós vamos fazer com que o
CheckBox 10 (Checar todos) checke todos os outros quando for checado,
utilizando o seguinte código:
Código PHP:

if CheckBox11.Checked=True then
begin
Checkbox1.Checked:=True;
Checkbox2.Checked:=True;
Checkbox3.Checked:=True;
Checkbox4.Checked:=True;
Checkbox5.Checked:=True;
Checkbox6.Checked:=True;
Checkbox7.Checked:=True;
Checkbox8.Checked:=True;
Checkbox9.Checked:=True;
end
else
begin
Checkbox1.Checked:=False;
Checkbox2.Checked:=False;
Checkbox3.Checked:=False;
Checkbox4.Checked:=False;
Checkbox5.Checked:=False;
Checkbox6.Checked:=False;
Checkbox7.Checked:=False;
Checkbox8.Checked:=False;
Checkbox9.Checked:=False;
end;

Não é pra Move Para Area CTutoriais Combat Arms !

Gostei muito de seu tutorial mas queria pedir uma coisa, qual codigo eu terei que botar pra aparecer a seguinte menssagem apos eu clicar em Limpar:

Logs Limpos com Sucesso!

Se nada tiver selecionado vai dar aquele erro mas se algo tiver selecionado keria q aparece-se isso. Qual seria o codigo Obrigado...