动态调用dll

HINSTANCE hDll;
   AnsiString _stdcall(* ShowDll)(char*);
   hDll=LoadLibrary("DForm.dll");

   if(hDll)
     {
       ShowDll=(AnsiString (__stdcall*)(char*))GetProcAddress(hDll,"readNowDate");
       if(ShowDll)
         this->Edit1->Text = ShowDll("yyyy-dd-mm");
       else
         ShowMessage("error loading fuction");
     }
   else
     ShowMessage("error loading dll");
     FreeLibrary(hDll);