[Alegun]

Код:

RegSetValue(Key, NameKey, REG_DWORD, @Value, SizeOf(Cardinal));