REG database

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;
    Reg.Openkey(Key, False);
    if Reg.ValueExists(name) then Result:=Reg.ReadString(Name)
    Reg.CloseKey;
  Finally
    Reg.Free;
  end;
end;