registry

[delphi_newbie_123]

hm es wird ein string eintrag bora eingetragen ich will den dazu gehörigen wert auslesen, falls der eintrag bora nicht exsistiert, soll einer erstellt werden.
wie lese ich bei dem existierenden bora eintrag den wert rauslesen?

Delphi-Quellcode:

var
  regist: TRegistry;
  wert:integer;
  anzahl:integer;
s:integer;
begin 
  regist:=TRegistry.Create;
  try
    regist.RootKey := HKEY_CURRENT_USER;
    if regist.OpenKey('Software\Microsoft\Windows', True) then
    try
      if regist.ValueExists('bora') then
        s := regist.Readstring()
      else
        regist.WriteString('bora', '12');
    finally
      regist.CloseKey;
    end;
  finally
    regist.Free;
  end;

danke nochmal