Registry

Jeg får adgang til registry på følgende måder:

Procedure WriteRegKey(Name: String; Value: String);
Var
  Reg : TRegistry;
begin
  Reg:= TRegistry.Create;
  Try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    if (Reg.Openkey(Key, True)) then
    begin
      Reg.WriteString(Name,(Value));
      Reg.CloseKey;
    end;
  Finally
    Reg.Free;
  end;
end;

Function ReadRegKey(Name: String):String;
Var
  Reg : TRegistry;
begin
  Reg:= TRegistry.Create;
  Try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    if (Reg.KeyExists(Key)) then
    begin
      Reg.Openkey(Key, True);
      Result:=Reg.ReadString(Name);
    end else
    begin
      SkrivTilLog('  Forsøgt at læse HKEY_LOCAL_MACHINE\'+Key+'\'+Name+' ,men denne findes ikke i registreringsdatabasen');
    end;
    Reg.CloseKey;
  Finally
    Reg.Free;
  end;
end;

Men hvis jeg prøver at læse en key, som ikke eksistere for jeg en fejl, hvordan fanger jeg den fejl, så programmet kan fortsætte??