Задержка экрана после авторизации

#include <vcl.h>
#include <windows.h>
#include "stdio.h"
#include <iostream>
#include "fstream.h"
#include "process.h"
#include "conio.h"
#include <tchar.h>
#include <inifiles.hpp>
#include <locale.h>
 
#include <System.Classes.hpp>
#include <Data.DB.hpp>
#include <IBX.IBCustomDataSet.hpp>
#include <IBX.IBDatabase.hpp>
#include <IBX.IBQuery.hpp>
#include <IBX.IBSQLMonitor.hpp>
 
#pragma hdrstop
#pragma argsused
 
TIBDatabase *IBDatabase1 = new TIBDatabase(0);
TIBTransaction *IBTransaction1 = new TIBTransaction(0);
TIBQuery *QueryTabel = new TIBQuery(0);
TDataSource *DataSource1 = new TDataSource(0);
TIBSQLMonitor *IBSQLMonitor1 = new TIBSQLMonitor(0);
 
TStringList *SL = new TStringList;
AnsiString _text;
bool authorize = false;
 
 
void WriteLn(String text) {
    static HANDLE handle;
    if (!handle) {
        AllocConsole();
        handle = GetStdHandle(STD_OUTPUT_HANDLE);
    }
    text += "\r\n";
    WriteConsole(handle, text.c_str(), text.Length(), 0, 0);
}
 
int _tmain(int argc, _TCHAR* argv[]) {
        char _log[10];
        char log[] = "SYSDBA";
        char _pas[10];
        char pas[] = "masterkey";
        int k = 0;
 
        do {
            printf("Input login\r\n"); // введите логин
            scanf("%s", _log);
            printf("Input password\r\n"); // введите пароль
            scanf("%s", _pas);
            k++;
 
            if ((strcmp(_log, log) == 0) && (strcmp(_pas, pas) == 0)) {
                authorize = true;
                printf("avtorizire OK!\r\n");
 
                OleInitialize(NULL);
                IBDatabase1->DatabaseName =
                    "localhost:C:\\DataBaseTestConnect\\WORK201_AA.GDB";
                IBDatabase1->LoginPrompt = false;
                IBDatabase1->Params->Add("user_name=SYSDBA");
                IBDatabase1->Params->Add("password=masterkey");
 
                try {
                    IBDatabase1->Open();
                }
 
                catch (Exception &exception) {
                    ShowMessage(exception.Message);
                    Application->Terminate();
                }
 
                IBTransaction1->DefaultDatabase = IBDatabase1;
                QueryTabel->Transaction = IBTransaction1;
                QueryTabel->SQL->Add("select  FIO from personal");
                QueryTabel->Open();
                AllocConsole();
 
                /* выводим значения на экран */
                for (int i = 0; i < QueryTabel->RecordCount; i++) {
                    WriteLn(QueryTabel->FieldByName("FIO")->AsString);
                    QueryTabel->Next();
                }
 
                QueryTabel->Close();
                IBDatabase1->Close();
                delete QueryTabel;
                delete IBTransaction1;
                delete IBDatabase1;
                exit(0);
            }
            else {
                // Пользователь неверно указал логин и пароль
                printf("avtorizire NO!\r\n");
            }
        }
        while (k < 3);
        getch();
        return 0;
    }