Info bei Start Programm gerufen --> Fehler wenn nicht da

[Aurelius]

Hallo DP-Gemeinde

Erstmal Sorry für den merkwürdigen Titel, mir ist keine bessere Formulierung eingefallen

Bei dem Start meines Programms wird eine Info aus der Reg gelesen. Wenn die entsprechende Info nun net da ist (z.B. beim ersten Start des Programms) gibt es eine Fehlermeldung, logisch.

Wie kann ich das jetzt umgehen? Diese Prozedur wird in FormCreate gerufen...

Delphi-Quellcode:

procedure gucken;
var a : integer;
    Reg : TRegistry;
begin
  a := 0;
  Reg := TRegistry.Create;
    try
      Reg.Rootkey:=HKEY_CURRENT_USER;
      Reg.OpenKey('Software\Shutdown',True);
      a:= Reg.ReadInteger('Autostart');
      Reg.CloseKey;
    finally
      Reg.Free;
    end;
  if a = 1 then Form1.Checkbox1.Checked := True else Form1.Checkbox1.Checked := False;
end;