1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    procedure PaintLamps;
    procedure SwitchZustand(NewZustand: byte);
  end;

var
  Form1: TForm1;
  LampeOn: array [1..3] of Boolean;
  Null: byte;
  Eins: byte;
  MomZustand: byte;
  Zustand: array [1..3] of array [1..2] of byte;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var A,B: integer;
begin
 randomize;
 Null:=Random(3)+1;
 Eins:=Random(3)+1;
 MomZustand:=Random(3)+1;

 for A:= 1 to 3 do
  if random(2)=0 then
   LampeOn[A]:=True
  else
   LampeOn[A]:=False;

 for A:= 1 to 3 do
  for B:= 1 to 2 do
   Zustand[A][B]:=random(3)+1;
  PaintLamps
end;

procedure TForm1.SwitchZustand(NewZustand: byte);
var B: integer;
begin
 MomZustand:=NewZustand;

 while MomZustand>3 do
  MomZustand:=MomZustand-3;
                    
 while MomZustand<1 do
  MomZustand:=MomZustand+3;

 for B:= 1 to 2 do
  LampeOn[Zustand[MomZustand][B]]:=not LampeOn[Zustand[MomZustand][B]];

 PaintLamps
end;

procedure TForm1.PaintLamps;
var A: integer;
begin

 for A:= 1 to 3 do
  if LampeOn[A]=true then
   TShape(FindComponent('Shape'+inttostr(A))).Brush.Color:=clBlack
  else
   TShape(FindComponent('Shape'+inttostr(A))).Brush.Color:=clWhite;

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

 if Key=48 then   //0
  SwitchZustand(MomZustand+Null);

 if Key=49 then   //1
  SwitchZustand(MomZustand-Eins);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowMessage('1 = '+inttostr(Eins)+', 0 = '+inttostr(Null));
end;

end.