Rotina para consistir um número de CPF.
Todos links para Delphi
Calculando tamanho de um diretório
Calcule o espaço ocupado por arquivos a partir de uma pasta. Esta função recursiva faz o trabalho.
Ela varre todos os arquivos dentro de um diretório e sub-diretorios e acumula o tamanho de cada um deles, retornando no final o tamanho total acumulado.