Вывести окно с сообщением во время запуска приложения

TForm* Form2;

Form2=new TForm(Form1);
Form2->Show();

delete Form2;

TAboutForm *AF = new TAboutForm(this);

    TForm *Form2 = new TForm(this);
 
    Form2->Caption = "Searching camera.    Please wait...";
    Form2->Show();

    // создаем временное новое окно для вывода сообщения, что нужно подождать
    TForm *Form2 = new TForm(this);
 
        // добавляем на эту новую форму ProgressBar
    TProgressBar *ProgressBar1 = new TProgressBar(this);
    Form2->InsertControl(ProgressBar1);
 
    // убираем системные иконки у этого окна(все иконки отсутствуют)
    Form2->BorderIcons = TBorderIcons() >> biSystemMenu;
 
    Form2->Caption = "Searching camera.    Please wait...";
    Form2->Show();

Application->CreateForm(__classid(TForm2), &Form2);
Form2->Show();

TAboutForm *AF = new TAboutForm(this);

    // создаем временное новое окно для вывода сообщения, что нужно подождать
    TForm2 *Form2 = new TForm2(this);

    // создаем временное новое окно для вывода сообщения, что нужно подождать
//  TForm2 *Form2 = new TForm2(this);
 
    Application->CreateForm(__classid(TForm2), &Form2);
    Form2->Show();
 
    Form2->InitiateAction();   // это наверно лишнее, но без него все то же самое
    Application->ProcessMessages();
 
    // ставим камеру в начальное положение
            ......

Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);

// ...
public:     // User declarations
  int LoadPercent;
// ...

void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
  ProgressBar1->Position = Form1->LoadPercent;
  this->Update();
}

void __fastcall TForm2::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  CanClose = false;
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  LoadPercent = 0; // инициализируем переменную, отображающую ход загрузки.
  int mas[100]; // объявляем массив, который будем заполнять случайными числами.
  srand(time(NULL)); // инициализируем зерно seed системным временем.
 
  TForm2 *Form2 = new TForm2(NULL); // создаём объект класса TForm2.
  Form2->Position = poScreenCenter; // позиция - центр экрана.
  Form2->Show(); // немодально показываем форму.
 
  for (LoadPercent = 0; LoadPercent < 100; LoadPercent+=2) { // в цикле проходим от 0 до 100 с шагом 2.
    Sleep(10 + rand() % 200); // случайное время заморозки действия, необходимо для реализма.
    for (int j = 0; j < 10000; j++) { // перезапишем один и тот же элемент случайным числом 10000 раз.
      mas[LoadPercent] = rand()%9; // случайное число в диапазоне 0-9.
      Application->ProcessMessages(); // обработаем сообщения, пришедшие из ОС.
    }
  }
 
  Form2->Timer1->Enabled = false; // отключаем действие таймера.
  delete Form2; // уничтожаем объект класса TForm2.
  Form2 = NULL; // обнуляем указатель.
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TMemoryStream *InMes = new TMemoryStream();
    TStringList* str=new TStringList;
 
    LoadPercent = 0; // инициализируем переменную, отображающую ход загрузки.
    int mas[100]; // объявляем массив, который будем заполнять случайными числами.
    srand(time(NULL)); // инициализируем зерно seed системным временем.
 
    TForm2 *Form2 = new TForm2(NULL); // создаём объект класса TForm2.
    Form2->Position = poScreenCenter; // позиция - центр экрана.
    Form2->Show(); // немодально показываем форму.
 
    // ставим камеру в начальное положение
    try
    {
        str->Clear();
        Form1->IdHTTP1->Post("http://192.168.0.139", str, InMes);
        Application->ProcessMessages();
        Form1->Label1->Caption = "Camera Ok";
    }
    catch(...)
    {
        Form1->Label1->Caption = "Camera fail";
    }
 
 
    Form2->Timer1->Enabled = false; // отключаем действие таймера.
    delete Form2; // уничтожаем объект класса TForm2.
    Form2 = NULL; // обнуляем указатель.
}

HTTP->ReadTimeout = 2000;
HTTP->ConnectTimeout = 2000;

        Form1->IdHTTP1->ReadTimeout = 2000;
        Form1->IdHTTP1->ConnectTimeout = 2000;