{
1       typedef void (*CALLEDFUNCTION) (TComponent* Owner);
2       CALLEDFUNCTION DllFunctionPtr;
3       AnsiString fDllName = "MyDll.dll";
4       AnsiString fFunctionName = "MyFunction";
5       AnsiString fMessage;
6       char fDllNameStr[50];
7       strcpy(fDllNameStr, fDllName.c_str());
8       HINSTANCE DLLInst = NULL;
9       DLLInst = LoadLibrary(fDllNameStr);
10     if (DLLInst) {
11     DllFunctionPtr = (CALLEDFUNCTION) GetProcAddress(DLLInst, unctionName.c_str());
12         if (DllFunctionPtr) DllFunctionPtr(this);
13        else {
14                fMessage = "Could not obtain pointer for function";
15	    fMessage += fFunctionName;
16	    fMessage += " in DLL ";
17	    fMessage += fDllName;
18	   }
19     }
20     else {
21	fMessage = "Could not load DLL ";
22	fMessage += fDllName;
23	Edit1->Text= fMessage;
24            }
25}