Obtener carpetas de un directorio

[angelp4492]

Hola como estan?

Veran tengo una duda.
Utulizando la función que puso Darkbyte q es la siguiente

Código Delphi [-]
   
procedure Rastrear (Dir:string);
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     ChDir ( Dir );
     if FindFirst ( '*.*', faDirectory, FileSearch )=0 then
     repeat
       begin
         //Pon aqui lo que quieras hacer con los ficheros encontrados
         Form1.Memo1.Lines.Add (FileSearch.Name);
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear ('C:\');
end;

esta funcion me devuelve todos las carpetas y archivos que hay en un directorio, mi pregunta era como podria hacer para que solo me muestre las carpetas.
gracias