Du brauchst dazu einen normalen Timer (intervall auf 1000ms):
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If Trunc(DateTimePicker1.Date)+Frac(DateTimePicker2.Time)<=Now Then Begin
// damit das ereignis nur einmal auftritt den timer deaktiveren
Timer1.Enabled:=False;
// tue etwas ... oder rufe eine andere procedure auf ...
End;
end;