Как перейти от INI файлов к Базе Данных?

Type
  TIniBase = class
  private
    FDataset: TDataset;
  public
    constructor Create(ADataset: TDataSet);
    procedure WriteValue(const Section, Ident, Value: Variant);
    function ReadValue(const Section, Ident: string; Default: Variant): Variant;
  public
    property Dataset: TDataset read FDataset write FDataset;
  end;
 
implementation
 
constructor TIniBase.Create(ADataset: TDataSet);
begin
  FDataset := ADataset;
  if not FDataset.Active then FDataset.Open;
end;
 
function TIniBase.ReadValue(const Section, Ident: string; Default: Variant): Variant;
begin
  Result := Default;
  if not FDataset.Active then Exit;
  if FDataset.Locate('Section;Ident',VarArrayOf([Section,Ident]),[])
  then Result := FDataset['Value'];
end;
 
procedure TIniBase.WriteValue(const Section, Ident, Value: Variant);
begin
  if not FDataset.Active then Exit;
  if FDataset.Locate('Section;Ident',VarArrayOf([Section,Ident]),[])
  then FDataset.Edit
  else FDataset.Append;
  FDataset['Section'] := Section;
  FDataset['Ident'] := Ident;
  FDataset['Value'] := Value;
  FDataset.Post;
end;

  var IniBase := TIniBase.Create(ADOTable1);
  IniBase.WriteValue('Demo','Date',Now);
  IniBase.WriteValue('Demo','String','Строка');
  IniBase.WriteValue('Demo','Int',1);
  IniBase.WriteValue('Demo','Float',1.0);
  IniBase.WriteValue('Demo','Bool',True);
  if IniBase.ReadValue('Demo','Bool',False)
  then ShowMessage('');