Выполняй
Repaint только тогда, когда оно того требует: для часов - каждую секунду (или минуту, если секунды не выводятся), или когда что-то на экране новенькое вывел - т.е. в своем частом-частом цикле введи проверку на необходимость перерисовывания
Надо подождать
N секунд? Это просто:
delay(N*1000)
И почитывай иногда справочник по функциям и процедурам МидлетПаскаля, он в хелпе, если что...