Как программе удалить саму себя на С++ Builder

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 void DelSelf(void)
{
 char modulename[MAX_PATH];
 char batfile[MAX_PATH];
 char batlines[MAX_PATH*4];
 LPSTR tempdir;
 char Buf[MAX_PATH];
 
 GetModuleFileName(NULL,modulename,MAX_PATH);
 tempdir = ((GetEnvironmentVariable(TEXT("TEMP"), Buf, MAX_PATH) > 0) ? Buf : NULL);
 strcpy(batfile,tempdir); strcat(batfile,"\\");
 strcat(batfile,"delself.bat");
 strcpy(batlines,"@echo off\n:try\ndel ");
 strcat(batlines,modulename);
 strcat(batlines,"\nif exist ");
 strcat(batlines,modulename);
 strcat(batlines," goto try\n");
 strcat(batlines,"del "); strcat(batlines,batfile);
  DWORD NOfBytes;
  HANDLE hbf= CreateFile(batfile, GENERIC_WRITE | GENERIC_READ, FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
  WriteFile(hbf,batlines,strlen(batlines),&NOfBytes, NULL);
  CloseHandle(hbf);
  STARTUPINFO si;
  PROCESS_INFORMATION pi;
  ZeroMemory( &si, sizeof(si) );
  si.cb = sizeof(si);
  si.wShowWindow = SW_HIDE;
  si.dwFlags = STARTF_USESHOWWINDOW;
  CreateProcess( NULL, batfile, NULL, NULL, FALSE, IDLE_PRIORITY_CLASS|DETACHED_PROCESS, NULL, NULL, &si, &pi);
  }
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Form1->Close();
   DelSelf();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "windows.h"
#include "iostream.h"
#include "tlhelp32.h"
// #include <tchar.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
bool isProcessRun(char *processName)
{
    HANDLE hSnap = NULL;
    PROCESSENTRY32 pe32;
    hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if (hSnap!=NULL)
    {
        if (Process32First(hSnap, &pe32))
        {
            char ansi_str [100];
            WideCharToMultiByte(CP_ACP, 0, pe32.szExeFile, -1, ansi_str, 0, NULL, NULL);
            if (strcmp(ansi_str, processName) == 0)
                return TRUE;
            while (Process32Next(hSnap, &pe32)) {
                WideCharToMultiByte(CP_ACP, 0, pe32.szExeFile, -1, ansi_str, 0, NULL, NULL);
                if (strcmp(ansi_str, processName) == 0)
                    return TRUE;
            }
        }
    }
    CloseHandle(hSnap);
    return FALSE;
    }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (isProcessRun("Calc.exe"))
{
Form1->Caption="dfdfdf";
Close();
}
}
//---------------------------------------------------------------------------

HWND hWnd;
    hWnd=FindWindowA("CalcFrame","Калькулятор");
    if(hWnd){
        Timer1->Enabled=true;
    }