Pon un label y un objeto TTimer en la ventana.
Al timer ponle un interval de 1000 y en el evento OnTimer escribe:
Código Delphi
[-]
label1.Caption := Formatdatetime(' dddd hh:nn:ss', now);
Pon la propiedad Active a True de tu Timer y listo.
Probablemente necesites el uses DateUtils, revisa las opciones de FormatDateTime.
Un saludo