Ajudem é --------------------- gt; Urgente lt;------------

Pessoal como editar esse valor abaixo no registro é meio chato

[HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]
´1803´=dword:00000003

Então o que fiz

procedure TPrincipalMain.SpeedButton1Click(Sender: TObject);
var
Reg: Tregistry;
Download: Variant;

Begin

if CheckListBox1.Checked[1] then
begin
Download:=3;
Reg:=Tregistry.create;
with Reg do
begin
rootkey:=HKEY_USERS;
Openkey(´\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3´,true);
Writebool(´1803´, Download );
CloseKey;
free;
end;
end;

Mas o que acontece é que a chave é criada como Dword mas com o valor
1 mas eu preciso que seja Dword 3

Por favor falta somente esse detalhe

Obrigado