C++ Builder реестр и DLL

#include <vcl.h>
#pragma hdrstop
#include <shellapi.h>
#include "Unit1.h"
#include <registry.hpp>
#include <conio.h>
#include <string>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HINSTANCE myDll;
typedef double (*MyProc)(double,double);
MyProc f;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
{
double x,y,d;
x=StrToFloat(Edit1->Text);
y=StrToFloat(Edit2->Text);
myDll = LoadLibrary("Project1.dll");
if (myDll!=0) {
f=(MyProc)GetProcAddress(myDll,"_myFunc");
 
if (f!=0) {
d=f(x,y);
Edit3->Text=FloatToStr(d);
}
else
ShowMessage("Невозможно выполнить программу!");
FreeLibrary(myDll);
}
else ShowMessage("Библиотеку не нашел =((");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TRegistry *reg = new TRegistry();
reg->RootKey=HKEY_CURRENT_USER;
reg->OpenKey("\MyLab",true);
reg->WriteString("MyName","E:/MyLab/Project1.dll");
reg->CloseKey();
delete reg;
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TRegistry *reg=new TRegistry();
reg->RootKey=HKEY_CURRENT_USER;
reg->OpenKeyReadOnly("MyLab");
AnsiString test;
test=reg->ReadString("MyName");
ShowMessage(test);
reg->CloseKey();
delete reg;
}