[Casimiro Notevi]

Pon un timer que su intervalo sea 1 segundo (1000 ms) y en su evento ontimer escribes la hora donde quieras, por ejemplo un label:

Código Delphi [-]
lbHora.Caption := FormatDateTime('dd/mm/aaaa hh:nn:ss',now);