var
  AliasList: TStringList;
  lDatabase: TDatabase;
  lSession :TSession;
begin
  lSession := TSession.Create(Application);
         With lSession do
         begin
            AutoSessionName := true;
            Active := true;
         end;

  lDatabase := TDatabase.Create(nil);
  AliasList := TStringList.Create;

  //If alias doesn't exist, add alias
  if (lSession.IsAlias('myDb') = false) then
  begin
      try
         with AliasList do
         begin
            Add(format('PATH=%s', [dbPath]));
         end;
         lSession.AddAlias('myDb', 'PARADOX', AliasList);
      finally
         AliasList.Free;
      end;
  end
  else
        //If alias exists, change the alias with a different path
        //lSession.GetAliasParams('myDb', AliasList);
        AliasList.Clear;
        AliasList.Add(format('PATH=%s', [dbPath]));
        lSession.ModifyAlias('myDb', AliasList);
        Session.SaveConfigFile;

      with lDatabase do
      begin
         //Configure database
         LoginPrompt := false;
         SessionName := lSession.SessionName;
         AliasName := 'myDb';
         DatabaseName := 'myDatabase';
         Connected := true;
      end;