unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Button2: TButton;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    Shape5: TShape;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Shape3.Brush.Color:=clGray;
  Timer1.Enabled:=false;
  Timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Shape3.Brush.Color:=clYellow;
  Timer1.Enabled:=true;
  Timer2.Enabled:=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  Shape2.Brush.Color:=clRed;
  Timer4.Enabled:=true;
  Timer3.Enabled:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer3.Enabled:=true;
  Timer1.Enabled:=false;
  Timer2.Enabled:=false;
  Shape3.Brush.Color:=clGray; 
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  Shape3.Brush.Color:=clYellow;
  Timer4.Enabled:=false;
  Timer5.Enabled:=true;

end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
  Shape4.Brush.Color:=clGreen;
  Timer5.Enabled:=false;
  Timer6.Enabled:=true;
  Shape3.Brush.Color:=clGray;
  Shape2.Brush.Color:=clGray;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
  Shape3.Brush.Color:=clYellow;
  Shape4.Brush.Color:=clGray;
  Timer6.Enabled:=false;
  Timer7.Enabled:=true;
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
   Shape2.Brush.Color:=clRed;
   Shape3.Brush.Color:=clGray;
   Shape4.Brush.Color:=clGray;
   Timer7.Enabled:=false;
   Timer3.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
  Timer3.Enabled:=false;
  Timer4.Enabled:=false;
  Timer5.Enabled:=false;
  Timer6.Enabled:=false;
  Timer7.Enabled:=false;
  Shape2.Brush.Color:=clGray;
  Shape3.Brush.Color:=clGray;
  Shape4.Brush.Color:=clGray;

end;

end.