Не получается вызвать функции из dll, написанной на Delphi

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
typedef void (__stdcall *DllTestFunc)(PChar password);
typedef void (__stdcall *DllTestFunc2)(PChar inFile,PChar outFile, PChar Key);
typedef void (__stdcall *DllTestFunc3)(HANDLE app);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HANDLE DllTestHandle = LoadLibrary(L"jpgcarrier.dll");
DllTestFunc3 SetWndHandle = (DllTestFunc3)GetProcAddress((HINSTANCE__*)DllTestHandle,"SetWndHandle");
DllTestFunc ActivateLibrary = (DllTestFunc)GetProcAddress((HINSTANCE__*)DllTestHandle,"ActivateLibrary");
DllTestFunc2 DecryptFile = (DllTestFunc2)GetProcAddress((HINSTANCE__*)DllTestHandle,"DecryptFile");
if(SetWndHandle)
SetWndHandle(Application->Handle);
else
ShowMessage(L"Function is not founded 1");
if(ActivateLibrary)
ActivateLibrary(L"1036FB0C1E1331CDCD43C70D43F00D1B0D44EA333AA266BB45");
else
ShowMessage(L"Function is not founded 2");
if(DecryptFile)
DecryptFile(L"blabla.jpg", L"blabla.rar", L"password");
   else
ShowMessage("Function is not founded 3");
FreeLibrary((HINSTANCE__*)DllTestHandle);
 }