Не компилируется проект

#include <windows.h>
#include <mmsystem.h>
 
#include <vcl.h>
#pragma hdrstop
#include "IniFiles.hpp"
#include <Tlhelp32.h>
#include "Unit1.h"
#include <tchar.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
wchar_t *pName;
TMenuItem *M;
UnicodeString Start;
UnicodeString Plus;
String Capt;
String CFG;
int A;
 
void DeleteDir(String Folder)
{
  if(DirectoryExists(Folder))
   {
     TCHAR cDest[MAX_PATH] = {0};
     _tcscpy(cDest, Folder.c_str());
     SHFILEOPSTRUCT fos;
     memset(&fos, 0, sizeof(SHFILEOPSTRUCT));
     fos.hwnd = Application->Handle;
     fos.wFunc = FO_DELETE;
     fos.pFrom = cDest;
     fos.fFlags = FOF_SILENT | FOF_NOERRORUI | FOF_NOCONFIRMATION;
     SHFileOperation(&fos);
   }
}
void __fastcall TForm1::N1Click(TObject *Sender)
{
 
   Capt = ((TMenuItem *)Sender)->Caption;
   ((TMenuItem *)Sender)->Checked = true;
   A = ((TMenuItem *)Sender)->Tag;
   BitBtn1->Enabled = true;
   SetLaunchParam();
}
void __fastcall TForm1::OpenFolderClick(TObject *Sender)
{
 
   ShellExecute(NULL, L"open", ExtractFilePath(Application->ExeName).c_str(), NULL,NULL,SW_SHOWNORMAL);
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
  if(FileExists(L"click.wav"))
  {
    PlaySound(L"click.wav", NULL, SND_FILENAME);
  }
 
  ShellExecute(NULL,L"open",Start.c_str(),Plus.c_str(),NULL,SW_SHOW);
}
bool ProcessStart(wchar_t *pName)
{
  HANDLE Hndl = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if(Hndl == INVALID_HANDLE_VALUE) return false;
  PROCESSENTRY32 ProcessEntry;
  ProcessEntry.dwSize = sizeof(ProcessEntry);
  bool Loop = Process32First(Hndl, &ProcessEntry);
  while (Loop)
   {
     if (wcscmp(ProcessEntry.szExeFile, pName) == 0)
       {
         CloseHandle(Hndl);
         return true;
       }
     Loop = Process32Next(Hndl, &ProcessEntry);
   }
  return false;
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
  pName = String(ExtractFileName(Start)).c_str();
  if(! ProcessStart(pName))
   {
    DeleteDir(L"Folder1");
    DeleteDir(L"Folder2");
    DeleteDir(L"Folder3");
    TSearchRec SR;
    if(FindFirst("*.log", faAnyFile, SR) == 0)
   {
     do
       DeleteFile(SR.Name);
     while (FindNext(SR) == 0);
     FindClose(SR);
   }
  ChDir(ExtractFilePath(Application->ExeName));
 
     BitBtn1->Caption = "Старт " + Capt + " [Off]";
     BitBtn1->Enabled = true;
     Menu->Enabled = true;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_ENABLED);
   }
  else
   {
     BitBtn1->Caption = Capt + " [On]"; /
     BitBtn1->Enabled = false;
     Menu->Enabled = false;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_GRAYED);
   }
  Application->ProcessMessages();
}
enum MouseInButton_e {emibLeave, emibEnter, emibDown, emibUp};
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner),
  ColorEnter(StringToColor(L"0xdf0064")),
  ColorLeave(StringToColor(L"0x7a0055")),
  ColorEnterExit(StringToColor(L"0x0000c8")),
  ColorLeaveExit(StringToColor(L"0x000064")),
  ButtonWidth(20),
  ButtonHeight(30),
  CaptionPanelHeight(30)
{
  #ifndef FormStyle
   MouseLBDown = false;
  #endif
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   CaptionPanel = new TPanel( this );
  CaptionPanel->Parent = this;
  CaptionPanel->Height = CaptionPanelHeight;
  CaptionPanel->Align  = alTop;
  CaptionPanel->ParentBackground = false;
  CaptionPanel->Color  = ColorLeave;
  CaptionPanel->OnMouseDown = this->PanelMouseDown;
  CaptionPanel->OnMouseUp = this->PanelMouseUp;
  CaptionPanel->OnMouseMove = this->PanelMouseMove;
  CaptionPanel->Caption = this->Caption;
  CaptionPanel->Font->Style = TFontStyles() << fsBold;
  CaptionPanel->Font->Color = clWhite;
  SBMin = new TShape( this );
  SBExt = new TShape( this );
  TShape *pTempShape;
  for( unsigned index = 0; index < this->ComponentCount; ++index )
    if( this->Components[index]->ClassNameIs( L"TShape" ) )
     {
        pTempShape = static_cast<TShape*>( Components[index] );
        pTempShape->Parent  = CaptionPanel;
        pTempShape->Width   = ButtonWidth;
        pTempShape->Height  = ButtonHeight;
        pTempShape->Top     = CaptionPanel->Height/2 - ButtonHeight/2;
        pTempShape->Shape   = stRoundSquare;
        pTempShape->Tag     = emibLeave;
        pTempShape->Brush->Color = ColorLeave;
        pTempShape->Pen->Color   = clWhite;
        pTempShape->OnMouseLeave = this->ShapeMouseLeave;
        pTempShape->OnMouseEnter = this->ShapeMouseEnter;
        pTempShape->OnMouseDown  = this->ShapeMouseDown;
        pTempShape->OnMouseUp    = this->ShapeMouseUp;
     }
  SBMin->Name = L"SBMin";
  SBMin->Hint = L"Свернуть";
  SBExt->Name = L"SBExit";
  SBExt->Hint = L"Закрыть";
  SBExt->Brush->Color = ColorLeaveExit;
  SBMin->Left = CaptionPanel->Width - ButtonWidth * 1.8 ;
  SBExt->Left = CaptionPanel->Width - ButtonWidth/2;
  this->BorderStyle = bsNone;
  this->Position = poDesktopCenter;
 
 
  CFG = ExtractFilePath(Application->ExeName) + L"Settings.cfg";
  if(FileExists(CFG))
   {
 
     TIniFile *Ini = new TIniFile(CFG);
     int mTag = Ini->ReadInteger("MENU","CHECKED",0);
     for(int i = 0; i < Form1->ComponentCount; i++)
      {
        if(Components[i]->ClassNameIs("TMenuItem"))
         if(((TMenuItem *)Components[i])->Tag == mTag)
          {
            A = mTag;
            ((TMenuItem *)Components[i])->Checked = true;
            Capt = ((TMenuItem *)Components[i])->Caption;
            BitBtn1->Caption = Capt;
            SetLaunchParam();
          }
      }
     delete Ini;
   }
}
void __fastcall TForm1::ShapeMouseEnter(TObject *Sender)
{
  static_cast<TShape*>( Sender )->Tag = emibEnter;
  ButtonUpdate();
}
void __fastcall TForm1::ShapeMouseLeave(TObject *Sender)
{
  static_cast<TShape*>( Sender )->Tag = emibLeave;
  ButtonUpdate();
}
void __fastcall TForm1::ButtonUpdate()
{
  TColor CurrColor(0);
  for( unsigned index=0; index<this->ComponentCount; ++index )
    if( this->Components[index]->ClassNameIs( L"TShape" ) )
      {
        if( static_cast<TShape*>( Components[index] )->Tag == emibEnter )
          {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( L"Exit" ) )
                CurrColor = ColorEnter;
            else
                CurrColor = ColorEnterExit;
          }
        else
          {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( L"Exit" ) )
                CurrColor = ColorLeave;
            else
                CurrColor = ColorLeaveExit;
          }
        static_cast<TShape*>( Components[index] )->Brush->Color = CurrColor;
      }
}
void __fastcall TForm1::PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
#ifndef FormStyle
  if( MouseLBDown )
   {
     static TPoint tp;
     tp.X = X;
     tp.Y = Y;
     tp = ClientToScreen(tp);
     this->Left = tp.x - MouseDownCaptionXY.X;
     this->Top = tp.Y - MouseDownCaptionXY.Y;
   }
#endif
}
void __fastcall TForm1::PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef FormStyle
  MouseLBDown = true;
  MouseDownCaptionXY.X = X;
  MouseDownCaptionXY.Y = Y;
#else
  long SC_DRAGMOVE = 0xF012;
  if(Button == mbLeft)
   {
     ReleaseCapture();
     SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
   }
#endif
}
void __fastcall TForm1::PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef FormStyle
  MouseLBDown = false;
#endif
}
void __fastcall TForm1::ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  static_cast<TShape*>( Sender )->Tag = emibDown;
  ButtonUpdate();
}
void __fastcall TForm1::ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  static_cast<TShape*>(Sender)->Tag = emibUp;
  ButtonUpdate();
  if(static_cast<TShape*>(Sender)->Name.Pos(L"Min")) this->WindowState = wsMinimized;
  if(static_cast<TShape*>(Sender)->Name.Pos(L"Exit")) this->Close();
}
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 
  TIniFile *Ini = new TIniFile(CFG);
  Ini->WriteString("MENU","CHECKED",IntToStr(A));
  delete Ini;
  CanClose = true;
}
 
void __fastcall TForm1::SetLaunchParam()
{
  switch(A)
    {
      case 1 :Start = L"name.exe"; Plus = L"параметры запуска(ключ)";
      break;
      case 2 :Start = L"name.exe"; Plus = L"параметры запуска(ключ)";
      break;
    }
 
  Timer1->Enabled = true;
}

#ifndef Unit1H
#define Unit1H
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#define FormStyle
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *Menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TTimer *Timer1;
    TMenuItem *OpenFolder;
    TMenuItem *SEPARATOR1;
    TBitBtn *BitBtn1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall N1Click(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall OpenFolderClick(TObject *Sender);
    void __fastcall BitBtn1Click(TObject *Sender);
 
    void __fastcall ShapeMouseEnter(TObject *Sender);
    void __fastcall ShapeMouseLeave(TObject *Sender);
    void __fastcall ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
 
private:    // User declarations
    const unsigned ButtonWidth, ButtonHeight, CaptionPanelHeight;
  const TColor ColorEnter, ColorLeave, ColorEnterExit, ColorLeaveExit;
  void __fastcall ButtonUpdate();
  TPanel *CaptionPanel;
  TShape *SBMin, *SBMax, *SBExt;
  #ifndef FormStyle
    bool MouseLBDown;
    TPoint MouseDownCaptionXY;
    void __fastcall SetLaunchParam();
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
extern PACKAGE TForm1 *Form1;
#endif

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
 
USEFORM ("Unit1.cpp", Form1);
 
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
 
        CreateMutex(NULL,true,L"MyApp");
        if (GetLastError() == ERROR_ALREADY_EXISTS)
        {
            MessageBox(NULL,L"Не удалось запустить (Приложение уже запущено).","Fatal Error",MB_OK | MB_ICONERROR);
            exit(0);
        }
 
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        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;
}