begin
ButtonPin5;
end;
procedure TForm1. Button6Click (Sender: TObject);
begin
ButtonPin6;
end;
procedure TForm1. Button7Click (Sender: TObject);
begin
ButtonPin7;
end;
procedure TForm1. Button8Click (Sender: TObject);
begin
ButtonPin8;
end;
procedure TForm1. Button9Click (Sender: TObject);
begin
ButtonPin9;
end;
procedure TForm1. Button14Click (Sender: TObject);
begin
ButtonPin14;
end;
procedure TForm1. Button16Click (Sender: TObject);
begin
ButtonPin16;
end;
procedure TForm1. Button17Click (Sender: TObject);
begin
ButtonPin17;
end;
procedure TForm1. ButtonPin2;
begin
Lpt. WritePort (GetCurrentPort, 0, (1 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin3;
begin
Lpt. WritePort (GetCurrentPort, 0, (2 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin4;
begin
Lpt. WritePort (GetCurrentPort, 0, (4 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin5;
begin
Lpt. WritePort (GetCurrentPort, 0, (8 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin6;
begin
Lpt. WritePort (GetCurrentPort, 0, (16 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin7;
begin
Lpt. WritePort (GetCurrentPort, 0, (32 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin8;
begin
Lpt. WritePort (GetCurrentPort, 0, (64 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin9;
begin
Lpt. WritePort (GetCurrentPort, 0, (128 xor Lpt. ReadPort ((GetCurrentPort), 0)));
end;
procedure TForm1. ButtonPin1;
begin
Lpt. WritePort (GetCurrentPort, 2, (1 xor Lpt. ReadPort ((GetCurrentPort), 2)));
end;
procedure TForm1. ButtonPin14;
begin
Lpt. WritePort (GetCurrentPort, 2, (2 xor Lpt. ReadPort ((GetCurrentPort), 2)));
end;
procedure TForm1. ButtonPin16;
begin
Lpt. WritePort (GetCurrentPort, 2, (4 xor Lpt. ReadPort ((GetCurrentPort), 2)));
end;
procedure TForm1. ButtonPin17;
begin
Lpt. WritePort (GetCurrentPort, 2, (8 xor Lpt. ReadPort ((GetCurrentPort), 2)));
end;
function TForm1. Pin2: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (1 = (1 and Lpt. ReadPort ((GetCurrentPort), 0)));
Pin2: = d;
end;
function TForm1. Pin3: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (2 = (2 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin3: = d;
end;
function TForm1. Pin4: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (4 = (4 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin4: = d;
end;
function TForm1. Pin5: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (8 = (8 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin5: = d;
end;
function TForm1. Pin6: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (16 = (16 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin6: = d;
end;
function TForm1. Pin7: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (32 = (32 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin7: = d;
end;
function TForm1. Pin8: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (64 = (64 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin8: = d;
end;
function TForm1. Pin9: boolean;
var
d: boolean;
begin
d: = true;
d: = d and (128 = (128 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin9: = d;
end;
function TForm1. Pin1: boolean;
var
d: boolean;
begin
d: = true;
d: = d xor (STROBE = (STROBE and Lpt. ReadPort (GetCurrentPort, 2)));
Pin1: = d;
end;
function TForm1. Pin14: boolean;
var
d: boolean;
begin
d: = true;
d: = d xor (AUTOFEED = (AUTOFEED and Lpt. ReadPort (GetCurrentPort, 2)));
Pin14: = d;
end;
function TForm1. Pin16: boolean;
var
d: b...
