Как можно обрабатывать краш программы?

// Проверить стримы (Видео выше)
// ===================================
bool first_stream_is_video(char * in_File) {
    AVFormatContext *pFormatCtx = NULL;
    if (avformat_open_input(&pFormatCtx, in_File, NULL, NULL) != 0)//<<<---------------- Исходный файл
        return -1; // Couldn't open file
                   // Retrieve stream information
    if (avformat_find_stream_info(pFormatCtx, NULL) < 0)
        return -1; // Couldn't find stream information
int ret = av_find_best_stream(pFormatCtx, AVMEDIA_TYPE_AUDIO, -1, -1, NULL, 0);
    //AVERROR_STREAM_NOT_FOUND   
    if (ret < 0) {
        printf("\n Could not find AUDIO stream in input file \n");// Не нашёл поток
    }//                  здесь... если нет потока, возвращает отрицат
int ret1 = av_find_best_stream(pFormatCtx, AVMEDIA_TYPE_VIDEO, -1, -1, NULL, 0);
    //AVERROR_STREAM_NOT_FOUND   
    if (ret1 < 0) {
        printf("\n Could not find VIDEO stream in input file \n");// Не нашёл поток
    }//                  здесь... если нет потока, возвращает отрицат... (Хуй какое число)
    //avformat_close_input(&pFormatCtx);// закрыть входной формат контекст
    if (pFormatCtx->nb_streams == 1 && ret < 0)return true;// ОДНО ВИДЕО
    else return ((ret1 < ret) && (ret1 >= 0) && (ret >= 0));//Видео выше аудио
}

if (first_stream_is_video(in_File)// === Разрешение открыть мессагу (Видео выше аудио)
    && memcmp(ext, "avi", 3) == 0 || memcmp(ext, "AVI", 3) == 0 ) {
            
        do {
                bool permission{ true };
                for (short i = 0; i < strlen(float_num); ++i)
if ((unsigned)float_num[i] < 46
    || (unsigned)float_num[i] > 57
    || (unsigned)float_num[i] == 47)
                        permission = false;
    if (permission && strlen(float_num) != 0) {
    double frame_per_s = std::stod(&float_num[0], NULL);

//---------------------------КОЛЁСА мыши---(увеличение)-----////////////////////
void __fastcall TForm1::FormMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos,
          bool &Handled)
{ if(PicProp_H==0 && PicProp_W==0)return;// Запрет колёс (Режим ножницы)
  if(Form_ind){delete Form_ind; Form_ind=NULL;}// переписать
                                  Timer4->Enabled=true; // индикатор
if(PicProp_H * PicProp_W < (Screen->Height*Screen->Width)*4){//< -----Ограничение на увеличение
     Form1->Height=floor(PicProp_H *= KFn);
      if(!up_down)Form1->Width=floor(PicProp_W *= KFn);
                      }
                 if(!protect) { //< ------------------- Разрешение рисовать на канву формат
  if(Form1->Height * Form1->Width  > Screen->Height * Screen->Width && chang) {
      pict_change(z_bmp);// < --- Создаём Image и на него рисунок (выполняеться один раз)
   chang= false; }
 if(!img)in_Canvas();
    }
if(img){img->Width= Form1->Width; img->Height= Form1->Height;}
    no_exit = false;// Не терминировать программу (крутил колёса)
              }
 
 
//----------------------------КОЛЁСА мыши--- (уменьшение) //////////////////////
void __fastcall TForm1::FormMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos,
          bool &Handled)
{ if(PicProp_H==0 && PicProp_W==0)return;// Запрет колёс(Режим ножницы)
 if(Form_ind){delete Form_ind; Form_ind=NULL;} // переписать
                                  Timer4->Enabled=true; // индикатор
if( PicProp_H * PicProp_W > 520.0 ) { // < --- Ограничение на уменьшение (по площади)
       Form1->Height=floor(PicProp_H/=KFn);
       if(!up_down)Form1->Width=floor(PicProp_W/=KFn);
                      } //---floor() функция округления до меньшего
                if(!protect) { //< ------------------- Разрешение рисовать на канву формат
  if(Form1->Height * Form1->Width  < Screen->Height * Screen->Width && !chang){ //  && !chang
delete img; img=NULL; Form1->Timer3->Enabled=true;// <--- (Первая прописка) рисунок на канву (Один раз)
    chang= true;}
      if(!img)in_Canvas();// <--- рисунок на канву(постоянно если формат разрешён)
       }
  if(img){img->Width= Form1->Width; img->Height= Form1->Height;}
  no_exit = false;// Не терминировать программу (крутил колёса)
       }

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{   // Включение прозрачности формы, привязка лейбла к нулю формы и удаление лейбла, если прозрачность
 upperScr=Form1->Top;//<--запомнить...форма выше верха
              if(protect){// Не для всех форматов прозрачность (для тех что на канву запрет)
if (KEYDOWN(VK_CONTROL)&& !Form1->TransparentColor){Form1->TransparentColor=true;Sleep(150);}
if (KEYDOWN(VK_CONTROL)&& Form1->TransparentColor){Form1->TransparentColor=false;Sleep(150);}
                         }
 static int old_x(Form1->Left), old_y(Form1->Top);
     //------------------- При сдвиге формы , индикатор
        if(Form1->Left!= old_x || Form1->Top !=old_y  ){
     if(Form_ind){delete Form_ind; Form_ind=NULL;}// переписать
                                  Timer4->Enabled=true; } // индикатор
                   if(Form_ind){
         if(Form1->Left < 0)Form_ind->Left=0;
             else Form_ind->Left= Form1->Left;
             //----------------
        if(Form1->Top < 0) Form_ind->Top=0;
            else Form_ind->Top= Form1->Top;
            //-----------------
        if(Form1->TransparentColor){delete Form_ind; Form_ind=NULL;}
                       }
         old_x =Form1->Left;  old_y =Form1->Top;
                        }

SYSTEMTIME st;  //                     Подготовка путю и сохранение картинки в   ПАПКУ с датой    (ВЫРЕЗАНИЕ из screen)
    GetSystemTime(&st);
    folder_name = String(st.wDay) + "." + String(st.wMonth) + "." + String(st.wYear); // Имя папки в wchar_t
//---------------

BOOL create_fld(wchar_t* cmdline)
{
CreateDirectoryW(cmdline, NULL); // создаём папку (если сегодняшней нет)
wchar_t prin_t[63];
wsprintf(prin_t, L"%s%s",L"Создал папку с именем: ", wcsrchr(cmdline, '\\')+1);
 return MessageBoxW(NULL, prin_t, L"Warning", MB_OK | MB_ICONWARNING | MB_SETFOREGROUND | MB_SYSTEMMODAL);
}
//---------------------

wchar_t cmdline[MAX_PATH] = {};
        GetModuleFileName(GetModuleHandle(NULL), cmdline, MAX_PATH);
   *(wcsrchr(cmdline, L'\\')+1) = '\0'; // ====== ноль вместо последнего слеша;
    wcscat(cmdline, folder_name.c_str());// --- Закончим путь в wchar_t
 
if (_waccess(cmdline, 0) != 0){
        
create_fld(cmdline);
 
    }//         А если есть, то ху в неё.
 
       String Name=ExtractFilePath(Application->ExeName)+folder_name+"\\NewPicture";//<== путь в каталог экзешника
int number=1;
while (FileExists(Name+IntToStr(number)+".png"))
{
number++;
}
Png->SaveToFile(Name+IntToStr(number)+".png");//<== и создаём файл .JPG
  delete Png;// JPN=NULL;
                          }//--создать не нулевой .JPG
DrawSelectRegion = false;
}
//--------------------------

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y) {
if(one && open_folder) {
    static wchar_t cmdline[MAX_PATH] = {};
        GetModuleFileName(GetModuleHandle(NULL), cmdline, MAX_PATH);
   *(wcsrchr(cmdline, L'\\')+1) = '\0'; // ====== ноль вместо последнего слеша;
    wcscat(cmdline, folder_name.c_str());// --- Закончим путь в wchar_t
 
  //---------------------------- Хитрым способом открыть папку и выделить последний полученный файл
     
if (_waccess(cmdline, 0) != 0)
    {
create_fld(cmdline);
    }
   else {
     //String rtg = String(wcslen(cmdline));
//MessageBoxW(Handle, cmdline, L"Warning", MB_OK | MB_ICONWARNING | MB_SETFOREGROUND | MB_SYSTEMMODAL);
 ShellExecute(Handle, L"open", L"explorer.exe", cmdline, NULL, SW_SHOW);
 //ShellExecute(0,0,Application->ExeName.c_str(),0,0,SW_SHOW); //Запускаем новую копию
  //Application->Terminate();
        }
  one=false;
   }
  //---------
}