Datum Timer Mitternacht (CheckNewDay)

[FarAndBeyond]

Mit Hilfe eines TLabels lasse ich mir Tag, Datum und KW anzeigen (An dieser Stelle vielen Dank an den Mathematiker, ich habe deine KW Function gefunden und verbaut).
Wie kann man genau prüfen, ob es Mitternacht ist um dieses Label zu aktualisieren ?

Im Moment vergleiche ich zwei Strings:
(kein MultimediaTimer oder QueuedTimer... ist der ganz einfache Timer, Intervall: 1000)

Delphi-Quellcode:

Procedure TwndToDO.timerTIMETimer(Sender: TObject);
  Var
   CheckNewDay: String;
 Begin
  Try
   labTime.Caption   := TimeToStr(Now)+' ';
   labTime_Sh.Caption:= labTime.Caption;

   Inc(Counter);
    If Counter = 20
    Then
     Begin
      Counter:= 0;
      CheckNewDay:= FormatDateTime('hh:mm',Now);
       If CheckNewDay = '00:00'
       Then
        Begin
         labDate.Caption:= // gekürzt, viel zu lang... 
         labDate_Sh.Caption:= labDate.Caption;
        End;
     End;
  Except
   On E: Exception
   Do ErrorLog('TimerTIME Failed'+#13#10+E.ClassName+#13#10+E.Message);
  End;
 End;