Смысл переводить? Хочешь добиться такого функционала в Делфи, юзай таймер и функции Date, Time, DateToStr из SysUtils.