finding address lpt1 in Delphi 2.0

In an application I need to read the address alocated to lpt1 from the BIOS
tabel starting at address 0000:0408.

Does anyone know how to read from this address? Maybe with a small routine in
assembler?

Nico Rijkhoff
Aalborg University
Denmark