请高手帮忙看一下这段程序（100分） (0分)

这段程序是在delphi6中调用chm格式的文件，从别人那里得到，是在delphi5下运行的，可是我在delphi6
下却不能编译通过，请高手帮忙看一下，有什么需要改进的地方，谢谢了

调用Windows系统目录System32下的HHCTRL.OCX，利用其中的HtmlHelpA函数接口可以自行实现HTML HELP帮助。
公共模块代码如下：
unit HTMLHELPCOMMON
?
interface
uses Windows;
?
type
DWORD_PTR = ^DWORD;
?
Function
HtmlHelp(hwndCaller:HWND;strFile:String;
uCommand:UINT; dwDataWORD_PTR ):HWND;
?
procedure CloseHtmlHelp;
?
implementation
uses
SysUtils;
const
HHControlInstance:THandle=0;
dwCookie WORD = 0;
var
HtmlHelpA:function ( hwndCaller:HWND; pszFileChar ;
uCommand:UINT; dwDataWORD_PTR ):HWND;stdcall;
?
function HtmlHelp(hwndCaller:HWND;strFile:String;
uCommand:UINT; dwDataWORD_PTR ):HWND;
var
LFileName:String;
pChar;
begin
if HHControlInstance=0 then
begin
LFileName := StringOfChar( ' ', 256);
p := PChar( LFilename );
GetSystemDirectory(p,255);
StrCat(p,'/HHCTRL.OCX');
HHControlInstance := LoadLibrary( P );
if HHControlInstance = 0 then
raise exception.Create('Help system not installed!'#13' HTMLHELP cannot displayed!');
@HtmlHelpA := GetProcAddress( HHControlInstance, 'HtmlHelpA');
if @HtmlHelpA = nil then
raise exception.Create('Function HTMLHELP cannot loaded!');
HtmlHelpA( 0, nil,$001C , (@dwCookie));
end;
result := HtmlHelpA( hwndCaller, PChar( strFile ), uCommand, dwData );
end;
?
procedure CloseHtmlHelp;
begin
if HHControlInstance<>0 then
begin
HtmlHelpA( 0, nil, $001D, DWORD_PTR(dwCookie));
FreeLibrary(HHControlInstance);
end;
end;
?
end.
?
两个函数分别初始化和释放调用接口。其它模块只须按约定调用即可。例如：
HtmlHelp( handle, htmlhelpfilename+'::/welcome.htm',$0000, nil);
显示htmlhelpfilename对应的帮助文件的welcome页面。

因為在程式中有對具型常量賦值的動作
>>HHControlInstance := LoadLibrary( P );
兩個決解方式
1. 把HHControlInstance宣告改為var
2. 在Delphi5下可以編釋通過而在Delphi6卻不行, 是因為在Project Options的Complier
頁籤中的Syntax Options中有一個選項--Assignable typed constants, 在D5下預設
是Checked; 而在D6預設下卻是unchecked. 只在D6下把這個Option再check即可
或在源代碼開頭加入 {$J+}

[][]

lorderic的答案我试过了，好像都还有问题