[volod3000]

DJ PhoeniX Спасибо, получилось.

Только добавил '\'

Код:

inc(Result,FileCount(Dir+ '\'+fs.name));

и объявление

Код:

function FileCount(Dir: string): integer; forward;

ненужно (Это я как понимаю для Delphi ниже 8)