[angvelem]

Сообщение от Ralik

RegSetValueEx(HKEY_CURRENT_USER, PChar(Name), 0, REG_DWORD, @1, 4)

Значит не читал. не @1, а @variable:

Читаем внимательно, variable переменная типа DWORD, со значением 1.

Код:

var
  variable : DWORD;
begin
  variable := 1;
  RegSetValueEx(Handle, PChar(Name), 0, REG_DWORD, @variable, 4);
end;