Как прочитать байт из параллельного порта 2

value:=port[$379]; { Прочитать из порта } 
port[$379]:=value; { Записать в порт }