СВЕТОФОР на 2 цвета, помогите, плиз, она почему-то не рабаотает Опции

[Masha2]

Создать новый класс (классы) -наследник графического элемента и составить программу, используя любые фрагменты программ из раздела меню среды «Помощь» Дать название классу Tper.
В задаче
Две окружности-светофор переезда.Кнопка переключения цвета.Поочередно мигают два фонаря. Вот у меня как-то с кнопками не выходит((((((((((((. А уже сдвать пора((((

uses GraphABC,ABCObjects;
      
  begin
   Window.Clear(clwhite);   
   SetBrushColor(Clgray);
    Circle(100,100,80);
   SetBrushColor(Clgray);
    Circle(280,100,80);
   SetBrushColor(Clred);
    Circle(100,100,80);
   SetBrushColor(Clred);
    Circle(280,100,80);
    SetBrushColor(Clgreen);
    Rectangle (100,300,150,350);

 onmouseup(100,300,1);
begin
   for 
   SetBrushColor:Clgray:= Circle(100,100,80) To SetBrushColor:Clred do 
    for
    SetBrushColor:Clred:=Circle(280,100,80) to SetBrushColor:Clgray do repeat;
    Sleep(3);
end;
end.

Добавлено через 9 мин.
Пожалуйста, помогите! Мне этот светофор уже снится и на улице от них тошнит((((((((

Читаем правила оформления топика!
Код заключаем в соответствующие теги!
Повторное нарушение приведет к закрытию темы.

Сообщение отредактировано: APAL - 3.06.2013 8:22