Höchstwahrscheinlich liegt es daran,
wie du das DateTimePicker1.Time im Creater lädst bzw. es danach einstellst (das ist im Frame ja leider nicht mit dabei). Diese Time-Property des DateTimePickers verhält sich nämlich beim Lesen und Schreiben etwas unterschiedlich. Beim Auslesen gibt sie zwar den gesamten DateTime-Wert zurück, beim Beschreiben allerdings kann man nur den 'Time'-Anteil neu laden. Das könnte also heißen, dass du beim Laden von 'Time' im Creater (oder danach) den Date-Anteil dabei gar nicht mit überladen hast und dieser danach also immer noch einen alten Date-Wert (etwa von Gestern) intus hatte. Bei der Initialisierung dieses Wertes im Creater (oder eben kurz bevor du das testen möchtest) solltest du also auch den 'Date'-Anteil nochmal zusätzlich mit laden:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.Date := NOW;
DateTimePicker1.Time := RecodeMillisecond(NOW, 0) +5*oneSecond;
end;
Durch diese +5*oneSecond müsste das gewünschte Event dann ca. 5 Sekunden nach dem Ausführen dieser Zeilen eintreten.
Übrigens: Diese Timer arbeiten doch nie so absolut exakt wie sie eigentlich sollten. Es könnte also durchaus mal sein, dass eine Sekunde auch gerade mal schieferweise 1001 Millisekunden lang ist und dann könntest du das Pech haben, dass deine gesuchte Sekunde damit gerade übersprungen wird, also gar nicht abgefragt wird. Ergo, den Timer.Interval-Wert auf etwas weniger als 1000 einstellen, wäre hier wahrscheinlich etwas sicherer.