[KnoX_RuS]

Bueno lo quise hacer con keyExist y no me salio.

Lo hice asi:

program Project1;

uses
  windows,
  SysUtils,
  Registry;
Var
  Registro:TRegistry;
begin
If Registro.KeyExists('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Sidebar') then begin
MessageBoxA(0,'LLave encontrada!','Bien', 64);
end;
MessageBoxA(0,'LLave no encontrada!','Mal', 64);

end.

Donde los MessageBoxA iria otro code eso lo puse para comprovar si funciona.

salu2 y gracias