RegistryKey auf Existenz prüfen funktioniert nicht (Konsole)

[ephedrine]

Es fehlt der Kopf des Codes:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  WinInet,
  ShellApi,
  Registry;

var a,b: string;
    c,d: integer;
 regist: TRegistry;