Delphiでフォルダのサイズ(中身の合計)を知る関数は無いですか？
VBならFileSystemObjectのFolderのSizeで一発で分かるんですが。