вчера вечером было скучно, вот набросал светофор:
http://data.cod.ru/95662
после установки находится на вкладке:
RegisterComponents('Internet', [TSvetoforControl]);
свойства:
public
property Red: Boolean read FRed; - красный горит? можно проверять в OnTick, например
property Yellow: Boolean read FYellow; - желтый горит?
property Green: Boolean read FGreen; - зеленый горит?
property Counter: Integer read FCounter; - номер такта
procedure Start; - запустить
procedure Stop; - остановить (выключить)
published
property Active: Boolean read GetActive write SetActive; - включен/выключен? можно менять в design time
property OnTick: TNotifyEvent read FOnTick write FOnTick; - тактовое событие