Ошибка Access Violation, что она значит и как исправить?

#include <vcl.h>
#pragma hdrstop
#include "windows.h"
#include "Unit3.h"
#include "string.h"
#include<dir.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::N3Click(TObject *Sender)
{
Form3->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
AnsiString Pth;
char *Path;
 
Pth = Edit1->Text;
Path = Pth.c_str();
char *Exe;
strcpy(Exe,Path);
strcat(Exe, "*.exe");
 
char* Bat=new char[strlen(Path)+5];
strcpy(Bat,Path);
strcat(Bat, "*.bat");
 
char* Cmd=new char[strlen(Path)+5];
strcpy(Cmd,Path);
strcat(Cmd, "*.cmd");
 
char* Exec=new char[strlen(Path)+15];
 
STARTUPINFO si = { sizeof(si) };
PROCESS_INFORMATION pi;
 
struct ffblk fileatr;
int done;
for (int i=1; i<=3; i++) {
   if (i==1) {
    done = findfirst(Exe,&fileatr,0);
   }
   if (i==2) {
    done = findfirst(Bat,&fileatr,0);
   }
   if (i==3) {
    done = findfirst(Cmd,&fileatr,0);
   }
 while (!done)  {
   Memo1->Lines->Add(fileatr.ff_name);
   strcpy(Exec,Path);
   strcat(Exec, fileatr.ff_name);
 
if( CreateProcess(Exec, NULL, NULL, NULL,   FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &pi) )
{
    CloseHandle(pi.hThread);
    if( WaitForSingleObject(pi.hProcess, INFINITE )==WAIT_OBJECT_0)
    {
        DeleteFile(Exec);
    }
    CloseHandle(pi.hProcess);
}
     done = findnext(&fileatr);
   }
 
 }
 
//ShellExecute(NULL, "open", "pack.exe", Path, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
 OpenDialog1->Filter="exe|*.exe|bat|*.bat|cmd|*.cmd|all|*.*";
 OpenDialog1->Execute();
 Edit1->Text=ExtractFilePath(OpenDialog1->FileName);
}