[BuRtOn]

Jajajajaja, ya Delphius te entendi perfectamente, y ya me salio, sabes que me estaba pasando, jajajaja Dios casi me mato la cabeza por eso, mira el codigo que yo tenia antes.

Este codigo es el que esta mal.

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);var reg: TRegistry;var valor :integer; ---> Estas variables sobranbegin  valor := 3;  reg:= TRegistry.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\MemoryManagement\PrefetchParameters ', False);  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;         reg.Free;end;

y ahora mira el que esta bien:

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\Session Manager\Memory Management\PrefetchParameters', False);
  if reg.ReadInteger('EnablePrefetcher') = 3 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;
         reg.Free;
end;

compara el codigo Delphius, y trata de descubrir mi error, jajajaja, Dios...pero enserio que me ayudaste muchisimo....espero que notes cual fue el error, jejeje....Gracias delphius..