Ну или например вот так http://www.compdoc.ru/prog/pascal/work_with_lpt/