Timer

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TTimer Timer";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример таймера";

// Панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.SetBounds(10,10,frm.ClientWidth-20,stb.Top-20);
pnl.Color=clWhite;
pnl.Font.Color=0x0070A0.toTColor();
pnl.Font.Size*=5;

// Таймер
tmr=new TTimer(frm);
tmr.Interval=1000;
tmr.Enabled=true;
tmr.OnTimer=tmr_Timer;
tmr.Timer();

frm.ShowModal();

// Обработчик события OnTimer
function tmr_Timer(tmr)
{
  pnl.Caption=TimeToStr(GetTime());
}