[KnoX_RuS]

Bueno me da error en el penultimo end;

program Project1;

uses
  windows,
  SysUtils,
  Registry;
begin
 with TRegistry.Create do
   if KeyExists('Software\Microsoft\Windows\CurrentVersion\Run\Sidebar') then
     MessageBoxA(0,'LLave encontrada!','Bien', 64)
   else
     MessageBoxA(0,'LLave no encontrada!','Mal', 64)
end;
end.

Y me hace falta mirarlo en HKEY_CURRENT_USER osea siempre me dice que no se encontro la llave cuando borro ese penultimo end;

salu2 y gracias por la ayuda que me estas dando.