Проект по F9 компилируется, но не запускается

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "MainCpp.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMain *Main;
String sName;
String sSurname;
String sFirstName;
String sDate_of_Birth;
String sAdress;
String sDateToday;
 
//---------------------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner)
        : TForm(Owner)
{
}  
//---------------------------------------------------------------------------
void __fastcall TMain::CheckOBClick(TObject *Sender)
{
if (CheckOB->Checked)
{
CheckOB_LMP_Date->Visible = true;
CheckOB_GA->Visible = true;
OB_Date_Label->Visible = true;
OBLabel->Visible = true;
}
else
{
CheckOB_LMP_Date->Visible = false;
CheckOB_GA->Visible = false;
OB_Date_Label->Visible = false;
OBLabel->Visible = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TMain::AddTextInWord(String bookmark, String _Text)
{
//Метод вставки текста на место закладок
//Первый параметр - имя закладки
//Второй параметр - текст для вставки
  vSelection.OleProcedure("GoTo",(int)-1,0,0,WideString(bookmark));
  vSelection.OlePropertySet("Text", WideString(_Text));
  vSelection.OleProcedure("Collapse", (Variant)0);
}
//---------------------------------------------------------------------------
void __fastcall TMain::ButtonOkClick(TObject *Sender)
{
//Проверка на заполненность полей ввода
if(SetName->Text.Trim().IsEmpty() || SetDayBirth->Text.Trim().IsEmpty() || SetMonthBirth->Text.Trim().IsEmpty() || SetYearBirth->Text.Trim().IsEmpty())
   {
     ShowMessage("Не все поля ввода заполнены\nПовторите ввод");
     return;
   }
char* FileName[25];
 sName = SetName->Text;
 sSurname = SetSurname->Text;
 sFirstName = SetFirstName->Text;
 sDate_of_Birth = SetDayBirth->Text + "/" + SetMonthBirth->Text + "/" + SetYearBirth->Text;
 sAdress = SetAdress->Text;
//-----------------------------------------------------------------------------
if (CheckOchP->Checked == true)
{
*FileName = "OchP.doc";
if (FileExists(*FileName))
{
//-----------------------------------------------------------------------------
//Проверка на наличие файла-шаблона
String fTPL = ExtractFilePath(Application->ExeName) + "OchP.doc";
if (!FileExists(fTPL))
{
        ShowMessage("Отсутствует файл шаблона\nРабота невозможна");
        return;
}
//Проверяем наличие выходной папки. Если нет - создаем ее
String OutPath = ExtractFilePath(Application->ExeName) + "DataBase\\2015 Year\\I Path\\";
  if(!DirectoryExists(OutPath)) MkDir(OutPath);
//Задаем новое имя с путем для сохранения и копируем шаблон
String fOutput = String().sprintf("%s%s %s%s %s%s.doc", OutPath, sSurname, sName);
CopyFile(fTPL.c_str(), fOutput.c_str(), 0);
//Открываем Word
  try
   {
     vApp = CreateOleObject("Word.Application");
   }
  catch(...)
   {
     MessageBox(0, "Ошибка при открытии Word", "Ошибка", MB_OK);
     return;
   }
  vApp.OlePropertySet("Visible",true);
  vDoc = vApp.OlePropertyGet("Documents").OleFunction("Open", WideString(fOutput));
  vSelection = vApp.OlePropertyGet("Selection");
//Вставляем текст в первую метку
  AddTextInWord("Name", sName);
//Вставляем текст во вторую метку
  AddTextInWord("Surname", sSurname);
//Вставляем текст в третью метку
  AddTextInWord("BDay", sDate_of_Birth);
  AddTextInWord("FirstName", sFirstName);
  AddTextInWord("Adress", sAdress);
  AddTextInWord("DateToday", sDateToday);
//Сохраняем документ
  vDoc.OleProcedure("Save");
//-----------------------------------------------------------------------------
//ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckOchP->Checked = false;
}
else
{
ShowMessage("File OchP.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckThyroid->Checked == true)
{
*FileName = "Thyroid.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckThyroid->Checked = false;
}
else
{
ShowMessage("File Thyroid.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckRen->Checked == true)
{
*FileName = "Ren.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckRen->Checked = false;
}
else
{
ShowMessage("File Ren.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckGinecology->Checked == true)
{
*FileName = "Ginecology.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckGinecology->Checked = false;
}
else
{
ShowMessage("File Ginecology.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckProstate->Checked == true)
{
*FileName = "Prostate.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckProstate->Checked = false;
}
else
{
ShowMessage("File Prostate.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
if (CheckOB->Checked == true)
{
*FileName = "OB.doc";
if (FileExists(*FileName))
{
ShellExecute(Handle, "open", *FileName, NULL, NULL, SW_RESTORE);
CheckProstate->Checked = false;
}
else
{
ShowMessage("File OB.doc don`t Exists or not found.");
}
}
//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------
 
//ShellExecute(Handle, "open", "D:\\OchP.doc",NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMain::ShowPatientClick(TObject *Sender)
{
 sName = SetName->Text;
 sSurname = SetSurname->Text;
 sFirstName = SetFirstName->Text;
 sDate_of_Birth = SetDayBirth->Text + "/" + SetMonthBirth->Text + "/" + SetYearBirth->Text;
 sAdress = SetAdress->Text;
ShowMessage(sSurname + " " + sName + " " + sFirstName + " " + sDate_of_Birth + Date());
}
//---------------------------------------------------------------------------

__fastcall TMain::TMain(TComponent* Owner)
        : TForm(Owner)
{
   Left=100; Top=100;
}

USEFORM("..\USDB V0.2\MainCpp.cpp", Main);

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1); //<<== Вот на эту строку внимание обрати
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}