Delphi - Tamaño de una carpeta

Hola a todos:
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.