[ecfisa]

Hola.

Código Delphi [-]
...
uses 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;
...

Saludos.