Замена параметров драйвера Bde Опции

[Гость]

Нужно поменять путь к базе данных. Накидал такую програмку

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  new: TStrings;
  all: TStrings;
begin
  new := TStringList.Create;
  all := TStringList.Create;
  Session1.GetAliasParams('BASE',new);
  new := Database2.Params;
  Session1.ModifyAlias('BASE',new);
  Session1.GetAliasParams('BASE',all);
  ListBox1.Items.Assign(all);
  new.Free;
  all.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  new: TStrings;
  all: TStrings;
begin
  new := TStringList.Create;
  all := TStringList.Create;
  Session1.GetAliasParams('BASE',new);
  new := Database1.Params;
  Session1.ModifyAlias('BASE',new);
  Session1.GetAliasParams('BASE',all);
  ListBox1.Items.Assign(all);
  new.Free;
  all.Free;
end;

В свойстве Param компоент Database1 и Database2 прописаны пути к базам. При запуске программы из Delphi все меняется и значения параметров выводятся в ListBox, в BDE Administrator изменения тоже отображаются. Как только закрываю Delphi - все изменения пропадают... Что я сделал не так?