No sé bien que estas usando, pero una carpeta no tiene tamaño, tienes que sumar el tamaño de todos los archivos que tiene dentro. Normalmente se usa una rutina recursiva.
Para hallar el tamaño exacto de un archivo sería:
Código:
var exacto : int64;
begin
exacto := nfilesizehigh * MAXCARDINAL + nfilesizeLow;
donde MAXCARDINAL es una constante declarada en la unidad sysutils.
El tamaño exacto viene dado en Bytes.
Saludos