Como Visualizar un reloj dentro de una ficha

[morfeo21]

Hola foro, una consulta , como puedo hacer para visualizar el reloj de windows en forma constante dentro de una ficha .
yo intente esto:
Cree una variable privada tipo boolean
Private
swith :Boolean;

En el evento oncreate del form hice:
Swith :=True;
En el evento onActive del form hice:

while Swith =True do
Begin
lblFecha.caption=timeToStr(Time);
Application.ProcessMessages
end;

Al ejecutar el programa ,visulizo la hora , pero me bloquea las opciones que posee el formulario, Existe alguna otra manera de lograr imprimir la hora o derrepente algun componente que pueda utilizar.
Gracias de antemano.

[[Lepe]]

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

[morfeo21]

Muchas Gracias amigo, ya solucione el problema con tu ayuda