[Delphi] Jak napisać program w Delphi do sterowania przekaźnikiem przez LPT?

Witam.
Mam problem jak napisać program w Delphi pod XP z komponentem DLPORTIO.
Program ma sterować przekaznikiem z 4-go lub 5-go pinu LPT.
W programie są tylko dwa przyciski.
Button1 podaje 1 na pin
Button2 podaje 0 na pin.
Proszę nie piszcie tylko:
.............na tej stronie powinno byc
.............zobacz tam
.............idz tam .
Takimi odpowiedziami zapchany jest cały net.
Proszę o konkretny przykład.
Dzieki.

Zamykam. - arnoldziq

var dana : byte
......
DataPort := $378;
Dana :=TestLPT.DLPortIO.Port[DataPort]; // bierz dane
Dana := (Dana or $10); //5BIT NA 1
TestLPT.DLPortIO.Port[DataPort]:=Dana; , // daj nan port dane
....
....
DataPort := $378;
Dana :=TestLPT.DLPortIO.Port[DataPort]; // bierz dane
Dana := (Dana and (not $10)); //5BIT NA 0
TestLPT.DLPortIO.Port[DataPort]:=Dana; , // daj nan port dane
...
============================
w załączniku jest program który właśnie pisze, i między innymi znajduje się w nim Monitor LPT który zadaje stany na porcie takie jakie chcemy
Dołańczam źródło rownież.
Porgam jest w trakcie budowy więc nie patrzcie na grafikę i czasem jakiś nieistotny błąd=chyba ,
Prog mam rysunek portu z opisem pin i adresów
dla osób niemających zainstalowanego DLPortIO to polecam plik instalacja_DLPortIO_system.zip lub cały plik Komponentu (ostatnio dodawałem do jakiegoś postu-->patrz mój profil )