O uso indevido desta dica pode causar perda irreversível de dados.

Veja como é fácil excluir os arquivos de um diretório, filtrando-os através de uma máscara (curinga).

• Inclua na seção uses: SysUtils, Dialogs
• Coloque um botão no formulário.
• Programe o evento OnClick deste botão como segue.

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  Diretorio, Arquivo: string;
begin
  Diretorio := 'C:\Diretorio\';
  if FindFirst(Diretorio + '*.exe', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr and faDirectory) <> faDirectory then
      begin
        Arquivo := Diretorio + SR.Name;
        if DeleteFile(Arquivo) then
          ShowMessage('Arquivo excluído:'#13 + Arquivo)
        else
          ShowMessage(SysErrorMessage(GetLastError) + #13#13 + Arquivo);
      end;
    until FindNext(SR) <> 0;
  end;
end;