TDateTimePicker weiterlaufen lassen

[Hobby-Programmierer]

Nabend ...,
für eine Statusbar mit Uhrzeitanzeige hatte ich das in etwa so gelöst. Der Trenner zwischen Stunde und Minute blinkt damit der Benutzer net denkt das die Uhr steht!

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:= StrToInt(FormatDateTime('s', Now));
  if odd(Timer1.Tag) then
    Label1.Caption:= FormatDateTime('hh:mm', Now)
   else
    Label1.Caption:= FormatDateTime('hh mm', Now);
end;

Den Rest hatte ja shmia schon erklärt.

LG Mario