Доработать программу "Светофор" на делфи

[Виталий_ЕШКО]

Доработать программу "Светофор", организовав вывод и второй стороны устройства, управляющей движением транспорта в поперечном направлении. Приведите тексты измененных фрагментов.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  temp: integer;
  vkl: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;
begin
  if temp =1 then
    begin
      Lm2(clBlack);
      Lm1(clRed):
    end;
  if temp =Tk+1 then
    begin
      Lm2(clYellow);
    end;
  if temp =Tk+Tp+1 then
    begin
      Lm2(clBlack);
      Lm1(clBlack);
      Lm3(clGreen);
    end;
  if temp =Tk+Tp+Tz+1 then
    begin
      Lm3(clBlack);
      Lm2(clYellow);
    end;
  if temp=Tk+Tp+Tz+Tp+1 then temp:=0;
  if vkl then temp:=temp+1
end;

procedure Tform1.FormCreate(Sender: TObject);
begin
  Temp:=0;
  vkl:=false
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if vkl then
    begin
      vkl:=false;
      Button1.Caption:='Пуск';
    end;
    else
      begin
        vkl:=true;
        Button1.Caption:='Стоп';
      end;
end;

end.

Файл с текстом программы.

[NetSpace]

на готовый проект и не парься - он проще тем, что уже рабочий. а ещё лучше - разберись в моём и САМ доработай свою программу. + к опыту и знаниям. неоценимый, жирный +

[Iron Monk]

После зеленого должен загораться желтый - зеленый должен тухнуть)))

[WinCoder]

Delete.....

[NetSpace]

Iron прав, между двумя цветами должен загораться предупреждающий жёлтый.

[Виталий_ЕШКО]

Спасибо. Хотя желательно ответ именно по условию задачи, но спасибо.

[Виталий_ЕШКО]

Сообщение от Виталий_ЕШКО

организовав вывод и второй стороны устройства, управляющей движением транспорта в поперечном направлении.

Как ЭТО написать?

[NetSpace]

сделать рядом вторую панель и там чтоб свет менялся в полной противоположности основному. пока на одной панели зелёный - на второй панели - красный. жёлтый и там и там. а потом наоборот - на одной панели красный, а на второй зелёный.