Borland Pascal app - LPT-COM change