[icWasya]

А всё-таки, зачем эта проверка?
if IOResult <> 0 then
ChDir(Dir);