private: // ユーザー宣言
    //DLLのロードのための変数宣言
    HINSTANCE hDll;

    //DLL呼び出し関数の宣言(Unlha32.dllのUnlha関数を呼び出す)
    typedef int WINAPI (*ProcUnlha)(const HWND _hwnd,
                                    LPCSTR _szCmdLine,
                                    LPSTR _szOutput,
                                    const DWORD _dwSize);

    //関数ポインタ
    ProcUnlha Unlha; 

void __fastcall TForm1::FormActivate(TObject *Sender)
{
    //DLLのロード
    hDll = LoadLibrary("UNLHA32.DLL");

    if (!hDll){
        //DLLが見つからなかった場合
        Application->MessageBox(
                            "UNLHA32.DLL が見つかりませんでした。",
                            "DLL エラー",
                             MB_ICONSTOP | MB_OK);
        Close();
    } else
        //DLLがあったら関数ポインタを取得する
        Unlha = (ProcUnlha)GetProcAddress(hDll, "Unlha");
}