Foros Club Delphi - Borrado de archivos de subdirectorios.

Hola amigos!

tengo un programilla para borrar archivos de un directorio, pero necesitaría que tb me lo hiciese del primer nivel de carpetas por debajo de este, solo del primero. Tengo el siguiente código que funciona:

==========================================================

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
Var Info : TSearchRec;
    Count : Longint;
    Archivo : String;
    fechaSistema,fechaArchivo,diasTranscurridos : TDateTime;
    {i dias : integer;}
Begin
{
  i:=0;
  for i:=1 to ParamCount do
  begin
    if copy(ParamStr(i),1,length(ParamStr(i)))='/D' then
      Dias:=strtoint(copy(ParamStr(i+1),1,length(ParamStr(i+1))));
    if copy(ParamStr(i),1,length(ParamStr(i)))='' then
     dias := 10;
  end;
 }
  Count:=0;
  If FindFirst ('*.*',faAnyfile,Info)=0 then
      begin
        Repeat
          Inc(Count);
          With Info do
            fechaArchivo := (FileDateToDateTime(Info.Time));
            fechasistema := (date);
            diasTranscurridos := ((fechaSistema)-(fechaArchivo));
            if diastranscurridos > 60 then
              Archivo := Info.Name;
              DeleteFile(pChar(Archivo));
         Until FindNext(info)<>0;
      end;
  Sysutils.FindClose(Info);
  Close;
end;

==========================================================

Solo necesito que elimine los archivos del directorio y del primer subdirectorio en que está el programa ejecutándose.

Un saludo.