Записать REG_DWORD

[helper999999]

проблема в записи нужного параметра, типа REG_DWord.
Пишу следующее:

procedure CreateKeyRun;
var
Key:HKEY;
Value: Cardinal;
begin
RegCreateKeyEx(HKEY_CURRENT_USER,'Software\MyProgramINI',0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,Nil,Key,nil);
RegSetValueEx(key,'FileCode',0,REG_DWORD,@Value,SizeOf(Cardinal));
RegCloseKey(Key);
end;

в параметр нужно записать 1, а вместо этого пишет либо фиг знает откуда взявшееся число либо 0.

на TRegistry просьба не предлагать заменить!!!

[Iron Monk]

var
Key:HKEY;
Value: Cardinal;
begin
//*******
Value:= 1;
//*******
RegCreateKeyEx(HKEY_CURRENT_USER,'Software\MyProgramINI',0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,Nil,Key,nil);
RegSetValueEx(key,'FileCode',0,REG_DWORD,@Value,SizeOf(Cardinal));
RegCloseKey(Key);
end;