program new;
begin
SettingsGetSetDefaultKeyValue('Kanker/wat', 'YO WAT');
SettingsGetSetDefaultKeyValue('Kanker/wat2', 'YO WAT2');
writeln(SettingsGetKeyValue('Kanker/wat'));

if SettingsIsDirectory('Kanker') then
  writeln('Kanker has at least one child!');
if SettingsIsKey('Kanker/wat') then
  writeln('wat exists!');
SettingsDeleteKey('Kanker/wat');
writeln(SettingsGetKeyValue('Kanker/wat2'));
writeln(SettingsGetKeyValue('Kanker/wat'));
SettingsDeleteSubKeys('Kanker');
if SettingsIsKey('Kanker') then
  writeln('kanker is a key now!');
end.