Користење на TIMER

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application. Се поставува една компонента  Panel1  од палетата со компоненти Standard со подесување на висината и ширината на панелот  Height=210 и Width=80 ,
и подесување на опцијата за рељефност на панелот bevelOuter - bvLowered (можете да ги пробате и другите опции кои се на располагање на пр.
bvRaised) . Потоа се подесува bevelWidth  на пример на  5  и  color на clBlack.
 
Потоа се вметнуваат три форми Shapes од палетата со компоненти Additional со следните параметри во Properties  на формата:
1. За првата форма: brush - color - clRed a за Shapes - stCircle;
2. За втората форма: brush - color - clYellow a за  Shapes - stCircle;
3. За третата форма: brush - color - clBlue a за Shapes - stCircle; Трите круга се вметнуваат во панелот со влечење во Object TreeView.

Потоа се поставува една компонента  Timer1  од палетата со компоненти  System,  се селектира и во  Events - onTimer се впишува следниот код: if shape1.Brush.Color = clRed then
    begin
        Timer1.Interval := 3500;
        shape1.Brush.Color := clSilver;
        shape2.Brush.Color := clSilver;
        shape3.Brush.Color := clGreen;
    end
else
    if shape3.Brush.Color = clGreen then
        begin
            Timer1.Interval := 2000;
            shape1.Brush.Color := clSilver;
            shape2.Brush.Color := clYellow;
            shape3.Brush.Color := clSilver;
        end
    else
        begin
            Timer1.Interval := 5000;
            shape1.Brush.Color := clRed;
            shape2.Brush.Color := clSilver;
            shape3.Brush.Color := clSilver;
        end;