Hola,
Algo así tal vez te pueda servir:
Código Delphi
[-]
procedure BorrarArchivos(dir, ext: string);
var
sr: TSearchRec;
begin
dir := IncludeTrailingPathDelimiter(dir);
FindFirst(dir + ext, faAnyFile, sr);
repeat
DeleteFile(dir + sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;