Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)

if Pin13=true then

Shape13. Brush. Color:=clRed

else

Shape13. Brush. Color:=clWhite;

if Pin14=true then

Shape14. Brush. Color:=clRed

else

Shape14. Brush. Color:=clWhite;

if Pin15=true then

Shape15. Brush. Color:=clRed

else

Shape15. Brush. Color:=clWhite;

if Pin16=true then

Shape16. Brush. Color:=clRed

else

Shape16. Brush. Color:=clWhite;

if Pin17=true then

Shape17. Brush. Color:=clRed

else

Shape17. Brush. Color:=clWhite;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

ButtonPin1;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

ButtonPin2;

end;