Diody w delphi

Jak zapalać i gasić diodę podłączoną do portu szeregwego 9pin

Wykorzystam do tego port COM 2 - taki jak do myszki tylko szerszy ( męski ).

Plus diody podłączyć pod 4. pin , minus pod 7.Mbr

Piny Oznaczenie Opis
1 GND Masa
2 TXD Transmisja danych
3 RXD Odbiór danych
4 RTS Zgłoszenie transmisji
5 CTS Sygnał końcowy transmisji
6 DSR Wstawienie sygnału gotowości
7 GND Masa
8 DCD Zasygnalizowanie przesyłu danych
9-19 - Złącza niewykorzystane
20 DTR Sygnał przerywający stan gotowości danych
21 - Złącze niewykorzystane
22 RI Wskaźnik pierścieniowy
23-25 - Złącza niewykorzystane

Deklarujemy poniższe procedurki

procedure Wlacz;
assembler;
asm
mov DX,2fch
mov AL,2
out DX,AL
end;

procedure Wylacz(Port:word;Value:Byte);assembler;
asm
mov DX,Port
mov AL,Value
out DX,AL
end;

//Teraz w zdarzniu np Button1Click włączymy diodę a w Button2Click wyłączymy

procedure TForm1.Button1Click(Sender:TObject);
begin
wlacz
end;

procedure TForm1.Button2Click(Sender:TObject);
begin
wylacz($2fc,$2);
end;