Не компилируется проект на RAD XE 10 ("Error detected (LME288)")

#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;
 
__fastcall TForm1::TForm1(TComponent* Owner)
   :TForm(Owner)
{
 
}
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;
   Button1->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::Button1Click(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"downloads");
    DeleteDir(L"htmlcache");
    DeleteDir(L"RemStorage");
    TSearchRec SR;
    if(FindFirst("*.log", faAnyFile, SR) == 0)
   {
     do
       DeleteFile(SR.Name);
     while (FindNext(SR) == 0);
     FindClose(SR);
   }
  ChDir(ExtractFilePath(Application->ExeName));
 
     Button1->Caption = L"Start " + Capt + L" [Off]";
     Button1->Enabled = true;
     Menu->Enabled = true;
   }
  else
   {
     Button1->Caption = Capt + L" [On]";
     Button1->Enabled = false;
     Menu->Enabled = false;
   }
  Application->ProcessMessages();
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
  CFG = ExtractFilePath(Application->ExeName) + "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;
            Button1->Caption = Capt;
            SetLaunchParam();
          }
      }
     delete Ini;
   }
}
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 = "loader.exe"; Plus = "-launch emu.exe -novid";
      break;
      case 2 :Start = "loader.exe"; Plus = "-launch emu.exe -novid";
      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>
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TMainMenu *MainMenu1;
    TMenuItem *Menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TTimer *Timer1;
    TMenuItem *OpenFolder;
    TMenuItem *SEPARATOR1;
    void __fastcall Button1Click(TObject *Sender);
    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);
private:    // User declarations
    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
    {
        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;
}
//---------------------------------------------------------------------------