Función PORT. para puerto LPT en XP

[vicruffo]

Puerto
Tengo una duda, antes en PASCAL al usar PORT[NUM_PUERTO], ya accesabamos al puerto por ejemplo el de la impresora, con Pascal y MsDos para un puerto lpt ->

puerto:=port[$03db];
if puerto=67 then
........
// con esto basta para leer el valor del puerto
_______________________________________________________________
Y en Delphi y XP COMO SERIA ???


?????????????


------------------------
DE ANTEMANO MUCHAS GRACIAS POR SU AYUDA.