Для того чтобы сделать обычные часы нужно поместить на форму Label и Timer с вкладки System.
Пропишем следующий код для Timer:
Label1->Cadivtion = FormatDateTime("hh:nn", Time());
Timer1->Interval = 60000;При запуске программы время автоматически отобразится и будет обновляться каждую минуту.
Примечание:
Interval - это отчет времени в обратном порядке, т.е. по истечении времени запускается повторно код.
Interval=1000 по времени равен 1 секунде.
