Использование функций из DLL

void __fastcall TForm1::Button1Click(TObject *Sender)
{
typedef long __cdecl (*dll_func)();
 
  dll_func pShowSum = NULL;
 
  HMODULE hDLL = LoadLibraryA("TestDLL.dll");
 
  if (!hDLL) {
     ShowMessage("Невозможно загрузить TestDLL.dll");
  return;
             }
     pShowSum = (dll_func)GetProcAddress(hDLL, "_MyFunc"); // обратите название на название функции (объяснение будет ниже)
 
     if (!pShowSum) {
         ShowMessage("Невозможно найти функцию MyFunc");
     return;
     }
     else ShowMessage("можно найти функцию MyFunc");
}

#include <vcl.h>
#pragma hdrstop
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <oleauto.hpp>
 
TForm1 *Form1;
Variant  ECR;
//свойства и методы драйвера
Procedure  sp("ShowProperties");
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   //ShowMessage ("!!!");
   ECR = Variant::CreateObject("AddIn.DrvFR");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnShowPropertiesClick(TObject *Sender)
{
   //ShowMessage ("!!!");
   ECR.Exec(sp);
}