if CheckBox1.Checked then begin \\если выбрано
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE; ветка реестра
reg.OpenKey('SYSTEM\....\...\...\', true); \\раздел
reg.WriteInteger('Autorun', 1); \\запись ключа
reg.CloseKey;


вроде так.

__________________
Фреймворк для спамера :(
Услуги программирования