[Agentone]

Помогите пожалуйста запрограммировать Lpt порт.
Задача состоит в том что бы можно было на Lpt порт скидывать числа (его обычные 8 бит) , а так же считывать состояние его входов (три входа, контакты 11-13).
Я искал примеры работы с Lpt и сам смог состряпать только вот это:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

var
  datay: byte;
begin

if datay=0 then begin
               port[memw[$0040:0008]:=33;
               datay:=33;
               end
else if datay=33 then begin
               port[memw[$0040:0008]:=36;
               datay:=36;
               end
else if datay=36 then begin
               port[memw[$0040:0008]:=34;
               datay:=34;
               end
else if datay=34 then begin
               port[memw[$0040:0008]:=40;
               datay:=40;
               end
else if datay=40 then begin
               port[memw[$0040:0008]:=33;
               datay:=33;
               end;
   end;

Параметр datay изначально равен 0...это в другом блоке у меня записано. Эта программа для управления шаговым двигателем. Последовательная смена числа вызывает смещение на 1 шаг.

А вот как читать что на входах я не знаю...кто может помогите.