Процесс инициализации программы, с настройками и подключением к БД

TMainForm=class(TForm)
...
  constructor Create(AOwner:TComponent); override;
end;

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // см. примечание 
  ReadSettings(Settings);
  // в загруженные настройки иногда можно внести изменения, запуская программу с ключами командной строки
  // поэтому выполним еще один метод
  ParseParams(Settings);
  // иногда, как в 1С, нужно при старте выбрать БД для подключения, или еше что-нибудь
  // возможно, это просто форма для логина
  // там же клиент может решить вообще отказаться от входа в программу
  ShowSettingsAndLoginForm(Settings);
  // если клиент отказался, то выходим
  if Application.Terminated then
    Abort; // Abort в конструкторе главной формы приведет к мягкому и тихому выходу из приложения
  // если Settings были изменены в форме, то можно их сохранить. Вот пример
  if Settings.RecentConnections.IndexOf(Settings.Database.ConnectionString)=-1 then
  begin
    Settings.RecentConnections.Add(Settings.Database.ConnectionString);
    Settings.SaveToFile(GetSettingsFilename());end;
  end;
  // создать модуль данных и подключиться к БД
  CreateDatamodule();
  // метод Init для всякой остальной работы - прочитать справочники, заполнить структуры данных
  // слазить в интернет, короче все, что нужно для запуска программы
  // лучше всего запустить для этого отдельный поток а форма тем временем покажется и будет рисовать часики
  // в общем, все, что угодно, что требуется для старта программы
  Init();
end;

 Settings:=TAS_Settings.CreateFromFile(GetSettingsFilename());

  dm:=TDM.Create(Application);
  dm.tryConnect(Settings.database);

procedure TDM.TryConnect(DBSettings: TDBSettings);
begin
  Db.DBParams.Values['sql_role_name'] := DBSettings.Role;
  Db.DBParams.Values['user_name'] := DBSettings.user;
  Db.DBParams.Values['password'] := DBSettings.pass;
  Db.DatabaseName := DBSettings.ConnectionString;
  if DBSettings.lib <> '' then
    Db.LibraryName := DBSettings.lib;
  Db.Open();
end;