이렇게 하면 대충 나오기는 할듯...

LongTimeFormat := 'hh : nn : ss.zzz';
  while True do
  begin
    Label1.Caption := (DateToStr(now) + #13 + TimeToStr(now));
    Application.ProcessMessages;
    Sleep(1);
  end;

초록강 님이 쓰신 글 :
: 다음과 같은 작업을 수행하면
:
:

: LongTimeFormat := 'hh : nn : ss.zzz';
: while true
: begin
:      Label1.Caption := (DateToStr(now) + #13 + TimeToStr(now));
: end;        

:
: 라벨 내용이 갱신되다가 어느정도 지나면 갱신되지가 않네요.
: 혹시 지속적으로 라벨 내용이 갱신되게 하는데 뭔가 문제가 되는 부분이 있는건가요?
: now 의 사용이 문제인것 같기도 한데 말입니다?!?!?