Tranquilo Forest, pero si notas, mas arriba, tengo este codigo, que es similar al tuyo si es que no es igual:
Código Delphi
[-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);var reg: TRegistry;var valor :integer;beginvalor := 3; reg:= TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SYSTEM\CurrentControlSet\Control\SessionManager\MemoryManagement\', True); if reg.ReadInteger('EnablePrefetcher') = valor then Begin reg.WriteInteger('EnablePrefetcher',5); MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0); end else MessageDlg('Su Menu ya estaba optimizado',mtWarning,[mbOK],0); reg.CloseKey;end;