Для создания часиков в StatusBar вашей формы, делаем следующее:

1) Помещаем на форму один Timer и один StatusBar;

2) Кликаем дважды на StatusBar и в появившемся окне Editing StatusBar1.Panels дважды нажимаем Add New и закрываем редактор;

3) В событии OnTimer таймера, пишем следующий код:

var

a:TTime;

begin

a:=(Time);

StatusBar1.Panels[0].Text:=TimeToStr(a);

end;

4) Запускаем проект;

Вообще переменную а, можно подгружать куда угодно, в Label например, можно менять цвета шрифта и фона. В общем удачных экспериментов...