var
  directory : string;

begin
  // Получение каталога для диска C
  GetDir(2, directory);
  ShowMessage('Каталог диска C, по умолчанию = '+directory);

  // Установка каталога C в это значение
  ChDir(directory);
  GetDir(2, directory);
  ShowMessage('Каталог диска C, по умолчанию = '+directory);

  // Попытка установить в недопустимое значение
  ChDir('C:Bad/Path/Value');
  GetDir(2, directory);
  ShowMessage('Каталог диска C, по умолчанию = '+directory);
end;