[[egostar]]

Tendrias que preguntar por el valor de la clave,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Control Panel\Desktop\', True);
  if reg.ReadString('MenuShowDelay') = '400' then begin
     reg.WriteString('MenuShowDelay','0');
     MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);
  end
  else MessageDlg('Su Menu ya estaba optimizado',mtInformation,[mbOK],0);
  reg.CloseKey;
end;

Salud OS