"Warning: Error detected (LME288)", RAD XE 8

// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <Math.hpp>
 
// ---------------------------------------------------------------------------
 
USEFORM("Unit1.cpp", Form1);
 
int MessageDlgPos(String const *messages, TMsgDlgType DlgType,
    TMsgDlgButtons Buttons, String const *Captions, TMsgDlgBtn DefaultButton)
{
    TForm *aMsgDlg = CreateMessageDialog(messages[0], DlgType, Buttons,
        DefaultButton);
    aMsgDlg->Caption = Captions[0];
    int captionIndex = 1;
    for (int i = 0; i < aMsgDlg->ComponentCount; i++)
    {
        TButton *dlgButton = dynamic_cast<TButton*>(aMsgDlg->Components[i]);
        if (dlgButton)
        {
            dlgButton->Caption = Captions[captionIndex++];
        }
    }
 
    TLabel *lbl = static_cast<TLabel*>(aMsgDlg->FindComponent(L"message"));
    lbl->WordWrap = false;
    lbl->Font->Color = clBlue;
    lbl->Font->Size = (int)(1.25 * lbl->Font->Size);
 
    TLabel *comment = new TLabel(aMsgDlg);
    comment->Parent = aMsgDlg;
    comment->Top = lbl->Top + lbl->Height + 5;
    comment->Left = lbl->Left;
    comment->Caption = messages[1];
 
    aMsgDlg->Width = Max((int)(1.25 * aMsgDlg->Width),
        comment->Left + comment->Width + 20);
 
    return aMsgDlg->ShowModal();
}
 
// ---------------------------------------------------------------------------
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
 
        HANDLE hMutex = OpenMutex(MUTEX_ALL_ACCESS, 0, _T("my_app"));
        if (!hMutex) // Если hMutex = 0, то мьютекс не существует.
                hMutex = CreateMutex(0, 0, _T("my_app"));
        // блокирует повторный запуск формы
        else
        {
            // ShowMessage("Повторный запуск");
            String captions[] = {_T("Ошибка"), _T("Закрыть")};
            String messages[2] = {_T("Приложение уже запущено"), _T("Вы можете запустить только одну копию")};
 
            MessageDlgPos(&messages[0], mtError, TMsgDlgButtons() << mbOK,
                &captions[0], mbOK);
            exit(1);
        }
 
        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;
}

#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 <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"cstrike_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 = "Старт " + Capt + " [Off]";
     Button1->Enabled = true;
     Menu->Enabled = true;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_ENABLED);
   }
  else
   {
     Button1->Caption = Capt + " [On]";
     Button1->Enabled = false;
     Menu->Enabled = false;
     EnableMenuItem(GetSystemMenu(Handle, false), SC_CLOSE, MF_GRAYED);
   }
  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 = "revLoader.exe"; Plus = "-steam";
      break;
      case 2 :Start = "revLoader.exe"; Plus = "-steam";
      break;
    }
  Timer1->Enabled = true;
}