кольцо изменить текущий каталог

ChDir(cNewPath)
Joker