Delphi - Urgente!!!

Hola a todos:
Dado la urgencia que me corre:
Me gustaria saber cómo puedo saber el tamaño de una carpeta en bytes al seleccionar una carpeta ,por ejemplo en un directorylistbox, incluyendo los archivos y subcarpetas que contiene la carpeta seleccionada.
Actualmente uso la siguiente funcón pero solo me da el tamaño en bytes de los archivos y no las carpetas:

function GetFileSize(const FileName: string): LongInt;
var
SearchRec: TSearchRec;
begin

if FindFirst(ExpandfileName(filename),faanyfile, SearchRec) = 0 then
Result := SearchRec.Size
else Result := -1;
end;

Un saludo y gracias.

Mikel.

Debes hacer los mismo para cada subcarpeta que encuentres en cada carpeta. Esto se puede hacer con una función recursiva que quizá sea la mejor opción en este caso.

Si necesitas más ayuda no dudes en escribirme.

Un saludo.