Проверка существования директории (способ 2)

Delphi FAQ >> Файлы и каталоги

uses FileCtrl;
...
if DirectoryExists(DirName) then
  ShowMessage('Директория ' + DirName + ' существует');

Ссылки в тему:
  Проверка существования директории (способ 1)