wechfunktion

[glkgereon]

Delphi-Quellcode:

if abs(now-Wake) < 2/(24*60*60) then //auf 2 sek genau
  begin
    MediaPlayer2.Play;
  end;