🚀 go-pugleaf

I had a problem on bringing up a default login dialog
when TADOConnection::ConnectionString does not
contain UserID/Password. Even LoginPrompt is true
and <DBLogDlg.hpp> is included, the connection
fails with "Invalid authorization specification".
After examining BCB6's ADO and DB source files/includes,
I found that the login dialog appears if LoginDialogExProc variable
is set to a corresponding function: LoginDialogEx.
So before opening a connection I executed below code:

  if (LoginDialogExProc == NULL)
    ShowMessage("NULL");
  if (LoginDialogExProc != LoginDialogEx)
    ShowMessage("NOT SAME");

And it returns "NOT SAME" and login dialog does not appear.
Due to this, I added:
  LoginDialogExProc = LoginDialogEx;
before connection open and now login dialog works well.

P.S. In my old project which uses TADOConnection with LoginPrompt=true
the login dialog works normally without an additional code. I don't know 
why.