Delphi 7中访问DLL,报错‘Access Violation at address 00404B50 in moudle'ElisaStar.exe'.

Delphi 7中访问DLL,报错‘Access Violation at address 00404B50 in moudle'ElisaStar.exe'.Read of address 03BE0B08’.
procedure   TMainForm.mmiHelpClick(Sender:   TObject);
Type
    TCommuConnect_ErrorCodes=Function(x:byte):String;stdcall;
var
    Commu_Code:byte;
    Th:THandle;
    Tf:TCommuConnect_ErrorCodes;
    Tp:TFarproc;
begin
          comBioMed   :=CreateOLEObject( 'BioMed.Instruments ');
          Commu_Code   :=comBioMed.SetSetting(USB_Communicate);
try
          Th:=LoadLibrary(PChar( 'ErrorHandling.dll '));
          if   Th> 0   then
                @Tf:=GetProcAddress(Th,PChar( 'CommuConnect_ErrorCodes '));
                if   Assigned(Tf)   then
                      begin
                      Label1.Caption:=Tf(Commu_Code);
                      end;
finally
          FreeLibrary(Th);//单步执行到这是报上述错误
end;
end;
此程序是完成返回一个字符串功能，报‘Access   Vilolation   at   address.....’错误，但字符还能正常返回来显示。


[解决办法]

在DLL中使用String类型：
1、在你的DLL项目源文件中第一个引用ShareMem单元；
2、你必须在你的应用程序项目源文件中第一个引用SHAREMEM单元；