Egy adott dátum és idő figyelése programból

constructor TAsAlarm.Create;
begin
    inherited Create(aOwner);
    FTimer:=TTimer.Create(self);
    FTimer.Interval:=1000;
    FTimer.Enabled:=False;
    FTimer.OnTimer:=DoTimer;
    FDate:=Date;
    FTime:=Time;
end;

procedure TAsAlarm.DoTimer;
begin
    if (Date=FDate) and (Time>=FTime) and
        Assigned(FonAlarm) then
    begin
        Enabled:=false;
        FOnAlarm(Self);
    end;
end;