Delphi - borrar el contenido de una carpeta

me gustaria saber como borrar el contenido de una carpeta sin borrar la carpeta claro.

Gracias y Saludos.

Este ejemplo borra todos los archivos de una carpeta llamada Pruebas en el directorio del programa:

procedure TForm1.Button1Click(Sender: TObject);
var
Archivos: TSearchRec;
Dir: String;
begin
Dir:=ExtractFilePath (Application.ExeName)+'Prueba\*.*';
if FindFirst(Dir, faArchive, Archivos) = 0 then
begin
repeat
if (Archivos.Attr and faArchive) = Archivos.Attr then
begin
DeleteFile(ExtractFilePath (Application.ExeName)+'Prueba\'+Archivos.Name);
end;
until FindNext(Archivos) <> 0;
FindClose(Archivos);
end;
end;