Delphi 我不熟,哪位大德能幫我將下面的程式碼轉成Delphi 

[code cpp]
typedef BOOL(WINAPI *TFunc)(const BSTR p_SourcePtr,BSTR* p_DestPtrPtr);
WideString S=Edit1->Text;
WideString Result;
if(0 {
HMODULE t_ModuleHandle=::LoadLibraryW(L"Module.dll");
if(NULL!=t_ModuleHandle)
{
TFunc t_TFunc=TFunc(::GetProcAddress(t_ModuleHandle,"ExportFunc"));
if(NULL!=t_TFunc)
{
BSTR t_DestString=NULL;
if(0!=t_TFunc(::SysAllocString(S.c_bstr()),&t_DestString)&&(NULL!=t_DestString))
{
Result=t_DestString;
::SysFreeString(t_DestString);
}
}
}
}
[/code]