Как заставить работать этот код?

Суть такова: при входе в приложение юзеру показывается форма с выбором действия. Затем эта форма вызывает другую форму, перед показом которой подключается база. При запуске возникают две странности:
1) Запрашивает логин и пароль, при том, что LoginPrompt = false
2) Выдает ошибку "Your user name and password are not defined..."

Форма 1: (создание основной формы)

procedure Tauth.next_buttonClick(Sender: TObject);
begin
  Application.CreateForm(TFmain, FMain);
  FMain.Show;
  Close;
end;

Форма 2: (которая работает с базой)

procedure TFMain.FormCreate(Sender: TObject);
var
  ini : TIniFile;
  login : String;
  pass : String;
  location: String;

begin
  ini := TIniFile.Create('./config.ini');

  try
    login := ini.ReadString('Database', 'user_name', 'SYSDBA');
    pass := ini.ReadString('Database', 'password', 'masterkey');
    location := ini.ReadString('Database', 'location', 'localhost:./DATABASE.fdb');
  finally
    ini.Free;
  end;


  with DB do
  begin
    Connected := False;

    DatabaseName := location;

    Params.Clear;
    Params.Add('user_name=' + login);
    Params.Add('password=' + pass);

    LoginPrompt := false;
    Connected := true;
  end;
//Затем - включение DataSet'ов с DataSource'ами