Ошибка доступа к памяти, ошибка компонентов .bpl

HWND win=NULL;
 
HRECORD chan;   // recording channel
 
void Error(const char *es)
{
    char mes[200];
    sprintf(mes,"%s\n(error code: %d)",es,BASS_ErrorGetCode());
    MessageBox(win,mes,0,0);
}
 
BOOL CALLBACK DuffRecording(HRECORD handle, const void *buffer, DWORD length, void *user)
{
    return TRUE; // continue recording
}
 
static BOOL Initialize()
{
 if (!BASS_RecordInit(-1)) {
    Error("Can't initialize device");
    return FALSE;
 }else{
    chan = BASS_RecordStart(44100, 2, 0, &DuffRecording, 0);
 }
    return TRUE;
}

  BASS_Stop();
  BASS_RecordFree();
  BASS_StreamFree(chan);
  BASS_Free();

typedef void __cdecl (*dll_func1)(int device, DWORD freq, DWORD flags, HWND win, const GUID *dsguid);
typedef void __cdecl (*dll_func2)();
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 HMODULE hDLL = LoadLibrary("bass.dll");
 
 if (!hDLL) {
        ShowMessage("Невозможно загрузить bass.dll");
        return;
 }
 
 dll_func1 pBASS_Init = NULL;
 // пытаемся найти в таблице экспорта необходимую нам функцию
 pBASS_Init = (dll_func1)GetProcAddress(hDLL, "BASS_Init");
 
 if (pBASS_Init) pBASS_Init(-1, 44100, 0, NULL, NULL);
 else ShowMessage("!!!");
 
 dll_func2 pBASS_Stop = NULL;
    // пытаемся найти в таблице экспорта необходимую нам функцию
 pBASS_Stop = (dll_func2)GetProcAddress(hDLL, "BASS_Stop");
 
 if (pBASS_Stop)  pBASS_Stop();
 else ShowMessage("!!!");
 
 FreeLibrary(hDLL);
}
//---------------------------------------------------------------------------