Килоггер вызывает ошибку abnormal program termination

//---------------------------------------------------------------------------
#include <windows.h>
#include <vcl.h>
extern "C" __declspec(dllexport) LRESULT CALLBACK KeyboardProc(int code, WPARAM wParam, LPARAM lParam);
extern "C" __declspec(dllexport) void hwnd(HHOOK HwndHook);
HHOOK hHook;//хранит дескриптор приложения загрузившего dll-ку
HINSTANCE hInstance;
FARPROC KeybProc = (FARPROC)KeyboardProc;
TForm *form = new TForm(Application);
TImage *image = new TImage(form);
Graphics::TBitmap *bitmap = new Graphics::TBitmap;
 
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hModule, DWORD dwReason, LPVOID lpReserved)
{
return 1;
}
//---------------------------------------------------------------------------
void hwnd(HHOOK HwndHook)//определяет дескриптор основного приложения
{
hHook=HwndHook;
}
//---------------------------------------------------------------------------
 
TNotifyEvent screen()
{
    bitmap->Width = Screen->Width;
    bitmap->Height = Screen->Height;
    bitmap->PixelFormat = pf32bit;
    BitBlt(bitmap->Canvas->Handle, 0,0,Screen->Width, Screen->Height, GetDC(0), 0,0,SRCCOPY);
    image->Canvas->StretchDraw(TRect(0,0,500,400), bitmap);
    return 0;
}
 
TCloseEvent close()
{
    delete [] form;
    delete [] image;
    delete [] bitmap;
    return 0;
}
 
void run()
{
    if(!FindWindow(NULL,"Screen Snap"))
    {
        form->Caption = "Screen Snap";
        form->Width = 500;
        form->Height = 400;
        form->Position = poScreenCenter;
 
        image->Parent = form;
        image->Width = 500;
        image->Height = 400;
        image->Align = alClient;
        image->Proportional = true;
 
        form->OnCreate = screen();
        form->OnClose = close();
        form->Show();
    }
}
 
__declspec(dllexport) LRESULT CALLBACK KeyboardProc(int code, WPARAM wParam, LPARAM lParam)
{
    if(wParam == VK_SNAPSHOT)
        run();
    return CallNextHookEx(hHook,code,wParam,lParam);//передаем "пойманные" параметры следующей ловушке
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
typedef void (*HWN)(HHOOK );
 
HWN hwn=NULL;
 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    HMODULE dllhook = LoadLibrary("hook.dll");//грузим длл-ку
    if(dllhook)//проверяем удачность загрузки библиотеки
    {
        hwn = (HWN)GetProcAddress(dllhook,"_hwnd");//импортируем из библиотеки функцию для определения дескриптора основного приложения
        HOOKPROC hook = (HOOKPROC)GetProcAddress(dllhook, "KeyboardProc");//импортируем процедуру определения нажатой клавиши
        if(hwn && hook)//проверяем удачность импорта функций
        {
            HHOOK hhook = SetWindowsHookEx(WH_KEYBOARD,hook,dllhook,0);//ставим ловушку на события клавиатуры
            hwn(hhook);//передаем в dll-ку дескриптор своего приложения
            //run();
            Sleep(INFINITE);//впадаем в бесконечную спячку (INFINITE==-1)
        }
    }
    FreeLibrary(dllhook);
    return 0;
}
//---------------------------------------------------------------------------