ocx 与dax error

做了ocx，打成cab包在网页上运行。结果就报下面的错误dax error的错误。按照网上给的方法。
1、到delphi安装目录下，找到Source\VCL\AxCtrls.pas文件（这个文件中的代码有bug），拷贝到你的项目文件夹下delphi教程，把这个文件添加为你项目的一部分（这样delphi就会应用你修改后的AxCtrls.pas）
2、找到AxCtrls.pas文件中的函数ParkingWindow，用下面的代码替换
function ParkingWindow: HWND; 
var 
TempClass: TWndClass; 
ParkingName : String; 
begin 
Result := xParkingWindow; 
//if Result <> 0 then Exit; //这行代码在delphi5和delphi6中好像不用注释掉// fix Dax error : accessviolation (win2k， win xp) 
ParkingName := 'DAXParkingWindow_' + Format('%p'， [@ParkingWindowProc]); FillChar(TempClass， sizeof(TempClass)， 0); 
if not GetClassInfo(HInstance， PChar(ParkingName)， TempClass) then // fix Dax error : accessviolation (win2k， win xp) 
begin 
TempClass.hInstance := HInstance; 
TempClass.lpfnWndProc := @ParkingWindowProc; 
TempClass.lpszClassName := PChar(ParkingName); // fix Dax error : accessviolation (win2k， win xp) 
if Windows.RegisterClass(TempClass) = 0 then 
raise EOutOfResources.Create(SWindowClass); 
end; 
xParkingWindow := CreateWindowEx(WS_EX_TOOLWINDOWdelphi教程， TempClass.lpszClassNamedelphi教程， nil， 
WS_POPUP， GetSystemMetrics(SM_CXSCREEN) div 2， 
GetSystemMetrics(SM_CYSCREEN) div 2， 0， 0， 0， 0， HInstance， nil); 
SetWindowPos(xParkingWindow， 0， 0， 0， 0， 0， SWP_NOACTIVATE or SWP_NOREDRAW 
or SWP_NOZORDER or SWP_SHOWWINDOW); 
Result := xParkingWindow; 
end; 这样改过重新打包运行还是没有，有些电脑又不会的。这是什么原因呢，请大家指教一下。