Parallelport von Basic auf Delphi umstellen

[Semmel]

Um eine Kassenschublade von Programm zu öffnen, habe ich ein Basic Programm als Beispiel.
WinIo.dll (ansprechen der Port) konnte ich schon einbinden, jedoch beim Ansprechen des Port I/O port 0x4B8
Result = SetPortVal(&H4B8, &HF, 1) = öffnen der Schublade

H4B8 kennt Delphi nicht
Wie kann ich das in Delphi übersetzen, dazu brauche ich eure Hilfe