Создаем часики в StatusBar

  Для создания часиков в 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 например, можно менять цвета шрифта и фона. В общем удачных экспериментов...