Application.Title := 'ПРОГРАММА УЧЕТА РЕАБИЛИТАЦИЙ';
  Application.CreateForm(TDM, DM);
  try
  with DM do
    begin
      IBDB.Close;
      IBDB.DatabaseName := Conf.DatabasePath;
      IBDB.Params.Clear;
      IBDB.Params.Add('USER_NAME=' + Conf.CurrentLogin);
      IBDB.Params.Add('lc_ctype=WIN1251');
      IBDB.Params.Add('PASSWORD=' + Conf.CurrentPassword);
      IBDB.Open;
fmLogo.ProgressBar1.StepBy(10);
      DS_IPR.Open;
      DS_KARTA.Open;
      DS_PROGR.Open;
      DS_S_MESTODOSUG.Open;
      DS_S_RABMESTO.Open;
      DS_S_SPMESTO.Open;
      DS_S_RAYON.Open;
      DS_S_BOOL.Open;
      DS_S_UVL.Open;
fmLogo.ProgressBar1.StepBy(10);
      DS_S_EFFECTIV.Open;
      DS_S_EXPERT.Open;
      DS_S_FIOSPEC.Open;
      DS_S_KTO.Open;
      DS_S_NAPRREAB.Open;
      DS_S_NPUNKT.Open;
      DS_S_OTD.Open;
      DS_S_PLOSHAD.Open;
      DS_S_RODSTV.Open;
      DS_S_SPEC.Open;
fmLogo.ProgressBar1.StepBy(10);
      DS_S_UCHETVRACH.Open;
      DS_S_TIPDOKUM.Open;
      DS_S_UL.Open;
      DS_S_BLAG.Open;
      DS_S_PASKEM.Open;
      DS_S_UCHEBA.Open;
      DS_S_SPEC_2_FIO.Open;
      DS_S_SPEC_2_FIONAIM_VIEW.Open;
      DS_TEMP_SPIS.Open;
      DS_REP.Open;
      DS_S_DIAGNOZCATEG.Open;
      DS_S_TEHSR.Open;
      DS_S_TRANSPORT.Open;
      DS_S_OBRROD.Open;
    end;
  except
    MessageDlg('Возможно Вы ввели неправильный логин и пароль!', mtError, [mbOk], 0);
    Application.Terminate;
    exit;
  end;