CreateDirectory

[Alar]

по теме - http://delphibasics.ru/CreateDir.php

[JTG]

Раздели функцию: сначала создай директорию scan а потом уже свою. Просто у тебя эта функция пытается создать директорию в директории которой не существует(извини за тафтологию). Лучше поставь проверку на наличие дироектории scan и в случае если она не существует, то создавай её это будет правильнее.
Удачи.

Кажись есть функция ForceDirectories, которая сама создаст всё древо папок, указанное в пути, если их нет