$r = new TRegistry;
$r->rootKey(HKEY_LOCAL_MACHINE);
$r->CreateKey("\\SOFTWARE\\Программа");