Проверка существования директории (способ 2)
Delphi FAQ >> Файлы и каталоги
uses FileCtrl;
...
if DirectoryExists(DirName) then
ShowMessage('Директория ' + DirName + ' существует');
Ссылки в тему:
Проверка существования директории (способ 1)