Создание lib

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <windows.h>
#pragma hdrstop
//---------------------------------------------------------------------------
 
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
       return 1;
}
//---------------------------------------------------------------------------
extern "C"
{
float __export f1(float a, float b)
 {
return (a+b);
 }
}
//---------------------------------------------------------------------------

#ifndef _GRDLL_H
#define _GRDLL_H
 
#ifndef __DLL__
#define DLL_EI __declspec(dllexport)
#else
#define DLL_EI __declspec(dllimport)
#endif
 
extern "C" float DLL_EI f1(float a, float b);
 
#endif

       float (__stdcall *f1)(float, float);
    HINSTANCE dllp = LoadLibrary("example.dll");
    if (dllp)
                {
        f1= (float(__stdcall *) (float, float))
        GetProcAddress(dllp, "_f1");
        if (f1)
                        {
                        float result=f1(a,b);
                        ShowMessage("результат: " + FloatToStr(result);
                        }
                else MessageDlg("Невозможно обратиться к функции",mtError,TMsgDlgButtons()<<mbOK,0);
        }
         else  MessageDlg("Не удалось загрузить 'example.dll'",mtError,TMsgDlgButtons()<<mbOK,0);
    FreeLibrary(dllp);