Нам понадобится Лабел, а так же таймер.
В таймер вписываем:
label1.Caption:=timetostr(time)
Наслаждаемся результатом)))