[BuRtOn]

Saludos Delphius, mira modifique el codigo, con lo que me dijiste y aun me ejecuta ese error, y si tenias mucha razon, mire el regedit, y tenia creados unos registros, pero mira dime que erro vez:

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);
var reg: TRegistry;
var valor :integer;
begin
  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;

Gracias por tu tiempo...