Borrar archivos de un directorio

[Magneto]

Quise usar los comandos FindFirst y FindNext para que borrara todos los archivos de un directorio, pero no pude hacer que funcionara, si bien copié literalmente un ejemplo de la ayuda del delphi. ¿Alguien me puede explicar bien cómo puedo hacer eso?

[SCH]

Prueba esto, ya se publicó en este foro y a mí me ha ido bien
------------
procedure TMain.RmDirectorio(directorio: string);
var
r: integer;
DirInfo: TSearchRec;
begin
r := FindFirst(directorio+'*.*', FaAnyfile, DirInfo);

while r = 0 do
begin
if ((DirInfo.Attr AND FaDirectory <> FaDirectory) AND (DirInfo.Attr AND FaVolumeId <> FaVolumeID)) then
DeleteFile(pChar(AppPath+'temp\tmpcurso\' + DirInfo.Name));
r := FindNext(DirInfo);
end;

SysUtils.FindClose(DirInfo);
RemoveDirectory(PChar(directorio));
end;
----------------

Un Saludo