[icWasya]

а зачем эта проверка
if IOResult <> 0 then
ChDir(Dir);