Однокнопочный светофор на Delphi 7

[TimRac]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Button1: TButton;
    Timer1: TTimer;
    Panel2: TPanel;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
  procedure Timer1Timer(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure Button1Click(Sender: Tobject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  temp: integer;
  vk1: boolean;
  implementation

{$R *.dfm}
 procedure TForm1.Timer1Timer(Sender: TObject);
  const
  Tk=5;
  Tz=5;
  Tp=2;
  procedure Lm1 (cc:word);
  begin
   Shape1 .brush.Color:=cc
  end;
  procedure Lm2(cc:word);
  begin
   Shape2 .brush.Color:=cc;
   end;
     procedure Lm3(cc:word);
   begin
    Shape3 .brush.Color:=cc;
    end;
    procedure Lm4 (cc:word);
  begin
   Shape4 .brush.Color:=cc
  end;
   procedure Lm5 (cc:word);
  begin
   Shape5 .brush.Color:=cc
  end;
  procedure Lm6 (cc:word);
  begin
   Shape6 .brush.Color:=cc
  end;
    begin
     if temp =1 then
      begin
    Lm2(ClBlack);
    Lm1(ClRed);
    Lm5(ClBlack);
    Lm6(ClGreen);
    end;
    if temp =Tk+1 then
    begin
    Lm2(ClYellow);
    Lm5(ClYellow);
    end;
    if temp =Tk+Tp+1 then
    begin
    Lm2(clBlack);
    Lm1(clBlack);
    Lm3(clGreen);
    Lm5(clBlack);
    Lm6(clBlack);
    Lm4(clRed);
    end;
   if temp =Tk+Tp+Tz+1 then
   begin
   Lm3(clBlack);
   Lm2(clYellow);
   Lm4(clBlack);
   Lm5(clYellow);
   end;
   if temp=Tk+Tp+Tz+Tp+1 then temp:=0;
   if vk1 then temp:=temp+1
   end;
   procedure TForm1.FormCreate(Sender:Tobject);
   begin
   Temp:=0;
   vk1:=false
   end;
   procedure TForm1.Button1Click(Sender: TObject);
   begin
   if vk1 then
   begin
   vk1:=false;
   Button1 .Caption:='Ione';
   end
   else
   begin
   vk1:=true;
   Button1.Caption:='Ione';
   end;
   end;
end.