Como modificar el registro de windows xp mediante delphi 7

[[kurono]]

hola amigo dec tengo un problema con el codigo para modificar el registro de windows el problema es el siguiente es q no me escribe el valor que le pongo cuyo valor por defecto en la direccion de registro que he elegido es 1 y lo quiero cambiar a 2 lo e intentado todo ponerlo como string,integer,float ect pero no me escribe si puede darme una ayuda te lo agradeceria y para que tengas una idea de lo q estoy haciendo te muestro mi codigo

Código Delphi [-]
var
 Registro: TRegistry;
begin
try
  Registro := TRegistry.Create;
  Registro.RootKey := HKEY_CURRENT_USER;
  if Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\App Management\ShowUpdates',true) then
    begin
    registro.WriteInteger('2');
    end
  else
   ShowMessage('No se ha podido abrir la clave...');
finally
 Registro.Free;
end;
end;
end.