[Forest]

(esto es lo que ya habías puesto solo que no se porque no lo pude copiar bien jaja)

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);
var reg: TRegistry;
var valor :Integer; begin   valor:=5;   reg:= TRegistry.Create;   reg.RootKey := HKEY_LOCAL_MACHINE;   reg.OpenKey('SYSTEM\CurrentControlSet\Control\SessionManager\MemoryManagement\', True);
  valor:=reg.ReadInteger('EnablePrefetcher');     Begin       reg.WriteInteger('EnablePrefetcher',valor);       MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);
    end;

end;

Pues primero que nada ahí no tienes ningun IF y si tienes begin y end o_O...
Además ese código no sirve porque si estás intentando guardar el valor del registro a la variable, y después, quieres guardarle el valor de la variable al registro... pues no estas haciendo nada...

La verdad no tengo ni idea como dije antes xD, pero... estás seguro de que EnablePrefetcher es de tipo entero?

Para mi que debe ser algo así:

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);
var reg: TRegistry;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SYSTEM\CurrentControlSet\Control\SessionManager\MemoryManagement\', True);
if reg.Read[verdadero tipo]('EnablePrefetcher') = 3; // ó '3' si fuese String
    Begin
reg.Write[verdadero tipo]('EnablePrefetcher',5); // ó '5' si fuese String
      MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);
    end
    else
      MessageDlg('Su Menu ya estaba optimizado ò_ó',mtInformation,[mbOK],0);
end;

Se que no es mucha ayuda, pero es lo que puedo hacer jeje