DateToStr(Date), TimeToStr(Time)을 이용하여 반복적으로 Label.caption을 업데이트 할때 프리징이 생기네요

procedure TForm1.FormCreate(Sender: TObject);
begin
  LongTimeFormat := 'hh : nn : ss.zzz';
  IdThreadComponent1.Start;
end;
procedure TForm1.IdThreadComponent1Run(Sender: TIdThreadComponent);
begin
  Label1.Caption := DateToStr(Date) + #13 + TimeToStr(Time);
  Sleep(5);
end;

코드만 보면 전혀 문제없어보이는데 초반에는 정상적으로 잘 돌다가 몇초후 멈춤현상이 발생합니다.
뭐가 문제인건가요?

IdThreadComponent1
Active False
Loop False
Priority tpNormal
StopMode smTerminate
Tag 0
ThreadName ''