Смоделировать работу светофора

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  i: integer;
  
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(i);
  case i of
    1: Shape1.Brush.Color := clRed;
    2: Shape1.Brush.Color := clRed;
    3: Shape1.Brush.Color := clRed;
    4: Shape1.Brush.Color := clRed;
    5: Shape1.Brush.Color := clRed;
    6: Shape1.Brush.Color := clWhite;
    7: Shape1.Brush.Color := clRed;
    8: Shape1.Brush.Color := clWhite;
    9: Shape1.Brush.Color := clRed;
    10: Shape1.Brush.Color := clWhite;
 
    11: Shape2.Brush.Color := clYellow;
    12: Shape2.Brush.Color := clYellow;
    13: Shape2.Brush.Color := clWhite;
 
 
    14: Shape3.Brush.Color := clGreen;
    15: Shape3.Brush.Color := clGreen;
    16: Shape3.Brush.Color := clGreen;
    17: Shape3.Brush.Color := clGreen;
    18: Shape3.Brush.Color := clGreen;
    19: Shape3.Brush.Color := clwhite;
    20: Shape3.Brush.Color := clGreen;
    21: Shape3.Brush.Color := clWhite;
    22: Shape3.Brush.Color := clGreen;
    23: Shape3.Brush.Color := clWhite;
 
    24: Shape1.Brush.Color := clRed;
    25:
    begin
      i := 0;
      Timer1.Enabled := False;
    end;
 
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  Timer1.Enabled := True;
 
end;
 
end.