请教各位，有关Segment/Offset 的问题！（在线等待）(100分)

我用的是DELPHI6,在编译一个钩子DLL的时候，出现如下错误：
Segment/Offset pairs not supported in borland 32-bit pascal
其原代码是：
poff1:=loword(l) ; {得到l的低１６位}
pseg1:=hiword(l) ; {得到l的高１６位}
[red]p:=ptr(pseg1,poff1); {合成指向MOUSEHOOKSTRUCT结构的指针}[/red] －－错
参考 http://www.delphibbs.com/keylife/iblog_show.asp?xid=20306 的原代码；
请各位帮忙解决，谢谢

没有人知道吗？