приложений выполняется, но иногда не показывает

Question

Это источник проекта:

Application.Initialize; 
    Application.MainFormOnTaskbar := False; 
    Application.ShowMainForm := False; 
    Application.CreateForm(TMain_Form, Main_Form); 
    Application.CreateForm(TData_Module, Data_Module); 
    Application.CreateForm(TForm5, Form5); 
    Login; 
    Application.Run; 

Порядок творения: Main_Form, Data_Module, Form5

Uniconnection таймаут 30 секунд.

Я подключаюсь к SQL Server.

И это у меня в MainForm:

procedure Login; 
begin 
    with TUniConnectDialog.Create(nil) do 
    try 
    try 
     Application.MainForm.Hide; 
     if not Data_Module.UniConnectDialog1.Execute then 
     Application.Terminate 

     else 
     Application.MainForm.Show 
    finally 
     Free; 
    end; 
    except 
    on E : Exception do begin 
     ShowMessage('Exception class name = '+E.ClassName); 
     ShowMessage('Exception message = '+E.Message); 
    end; 
    end; 
end; 

И все же, иногда мой диалог подключения не может показать и приложение работает молча в background.I должны использовать диспетчер задач Windows, чтобы закончить его.

Я попытался использовать eureka для его отладки, но он не смог показать мне какую-либо ошибку. Приложение выполняется, но не отображается. Это происходит, возможно, в 3 из 10 случаев. Теперь я не могу понять, что я делаю неправильно здесь.

Edit:

procedure Login; 
begin 
with Data_Module.UniConnectDialog1.Create(nil) do 
     try 
     Application.MainForm.Hide; 
     if not Data_Module.UniConnectDialog1.Execute then 
     Application.Terminate 

     else 
     Application.MainForm.Show 
    finally 
    // Free; 
    end; 
    end; 

EDIT 2: Это не работает.

Answer 1

Это не полное решение (или может быть - трудно сказать), но исправляет ошибки при редактировании основного вопроса. К сожалению, я не мог сделать это в комментариях.

procedure Login; 
begin 
    // with Data_Module.UniConnectDialog1.Create(nil) do 
    // 1) Don't use 'with' - it just creates ambiguity 
    // 2) You probably don't need to create the dialog 
    // 3) If you do the format should be: 
    // Data_Module.UniConnectDialog1 := TUniConnectDialog.Create(???) 
     try 
     Application.MainForm.Hide; 
     if not Data_Module.UniConnectDialog1.Execute then 
     Application.Terminate 

     else 
     Application.MainForm.Show 
    finally 
    // Free; 
    end; 
    end;