windows 7 como crear clave para autoejecutarse en inicio (..currenversion/run)

[jor]

el codigo que expongo a continuación me funciona bien para xp pero lo e probado en windows 7 como administrador y no me funciona.
no se que estara mal por lo que e leido windows 7 tiene modificaciones en lo que al accso al registro ,y sospecho que sea cosa de prmisos.

este es sl codigo


//direxe =>'C:\WINDOWS\system32\MIEJECUTABLE.EXE');
//clavenomb=> nombre calve creada

procedure tMainForm.crear_clave(clavenomb,direxe : string);
begin

try
Registro:=TRegistry.create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',FALSE) then
begin
if not(registro.ValueExists(clavenomb) )then
begin // SI NO EXISTE EL NOMBRE DE LA CLAVE

try
Registro.WriteString(clavenomb,direxe);

except
InicioActiveX();

end;




end







End;//OPEN KEY


finally
Registro.Destroy;

end;

end;


listo le agradesco mucho que me puedan a yudar