[ecfisa]

Hola.

Una forma puede ser:

Código Delphi [-]
procedure BorrarArchivos(Ruta: string);
var
  SR: TSearchRec;
begin
  if FindFirst(Ruta + '*.*', faArchive+faHidden+faReadOnly, SR)= 0 then
   repeat
     DeleteFile(Ruta+'\'+SR.Name);
   until FindNext(SR) <> 0;
end;

Ejemplo de uso:

Código Delphi [-]
  BorrarArchivos('C:\Carpeta\');

Si queres ahorrarte las advertencias del compilador usá:

Código Delphi [-]
   if FindFirst(Ruta + '*.*', $23 , SR)= 0 then

Saludos.