请教一个C代码转换成delphi的简单问题

Question

C的代码为：
void KbcWait4IBE()
{
DWORD dwRegVal=0;
do
{
GetPortVal(0x64,&dwRegVal,1);
}
while(dwRegVal & 0x00000002);
} 由于是菜鸟一个，请问高手如何转换delphi的代码。
小弟在此先拜谢了！

Answer 1

function KbcWait4IBE()
var
 dwRegVal: longnit;
begin
  dwReVal:=0;
  repeat
    GetPortVal(0x64,^dwRegVal,1);
  until (dwRegVal<>0) and (0x00000002<>0);
} 没调试国,只是按照语法写了一下肯定有问题的...

Answer 2

procedure KbcWait4IBE;
var
  dwRegVal: DWORD;
begin
  dwRegVal := 0;
  repeat
    GetPortVal($64, @dwRegVal, 1);
  until (dwRegVal and $00000002 <> 0);
end;