Problem mit RTCAlarm

Import SysTick, DCFclock, RTClock, SerPortE1, SwitchPort_G;

From System Import Tasks, LongWord;
From RTClock Import RTCAlarm;

Define
  RTClock        = iData, Time;             { Time, DateTime                   }
  RTCSource      = SysTick;

Var
  WakeHour           : Array[1..4] of Byte;  // 4 mögliche Weckzeiten
  WakeMinute         : Array[1..4] of Byte;

Procedure RTCAlarm;
  Begin
    AlertActive:=true;
    Set4:=1;          // Segment ein zur Kontrolle
  End RTCAlarm;


// Setzen und aktivieren der Weckzeit
  RTCAlarm_Time(WakeHour[WakeType],WakeMinute[WakeType],00);
  RTCAlarm_Start(1);

// Alarm aktiv
    If AlertActive=true
      then
        If MP3Busy=false  // MP3-Modul spielt grad nicht ab
          then
            SetMP3Command(11);  // MP3 Track 1 starten
          EndIf;
        If Inp_Raise_G(T4)  // Taste gedrückt
          then
            SwitchPort_G_Clear;
            AlertActive:=false;  // Alarm aus
            SetMP3Command(6);  // MP3 aus
          EndIf;
      EndIf;

type
  AlarmRegister = Record
    ThisDay  :  Byte;    //Bit 0 Monday...Bit 6 Sonday Bit 7 Wiederholung
    Year     :  Byte;
    Month    :  Byte;
    Day      :  Byte;
    Hour     :  Byte;
    Minute   :  Byte;
    Handler  :  Byte;
  end;
{--------------------------------------------------------------}
{ Var Declarations }
var
  USEAlarmWithDate : Byte;  //Bit 0..7 für einen Alarm per Wochentag
  AlarmActive      : Byte;  //Bit 0..7 für einen Alarm = Active
  Alarm            : Array[0..7] of AlarmRegister;

Procedure ResetAlarm;
Begin
  FillBlock(@Alarm,SizeOf(AlarmRegister)*8,$FF);
end;
Function CheckAlarm(AlarmData:AlarmTime):Byte;
var uCount,Result,T:Byte;
Begin
  //ClockArray[0]:= ClockArray[0] and %01111111;   //Sekunden
  //ClockArray[1]:= ClockArray[1] and %01111111;   //Minuten
  //ClockArray[2]:= ClockArray[2] and %01111111;   //Stunden
  //ClockArray[3]:= ClockArray[3] and %00000111;   //Wochentag
  //ClockArray[4]:= ClockArray[4] and %00111111;   //Tage
  //ClockArray[5]:= ClockArray[5] and %00011111;   //Monate
  For uCount:=0 to 7 do
    if Bit(AlarmActive,uCount) then
      if Bit(USEAlarmWithDate,uCount) then
        if (Alarm[uCount].Year=AlarmData[6]) or (Alarm[uCount].Year=$FF) then
          if (Alarm[uCount].Month=AlarmData[5]) or (Alarm[uCount].Month=$FF) then
            if (Alarm[uCount].Day=AlarmData[4]) or (Alarm[uCount].Day=$FF) then
              if (Alarm[uCount].Hour=AlarmData[2]) or (Alarm[uCount].Hour=$FF) then
                if (Alarm[uCount].Minute=AlarmData[1]) or (Alarm[uCount].Minute=$FF) then
                  SetBit(Result,uCount,True);
                  t:=Alarm[uCount].ThisDay;
                  if not T.7 then
                    SetBit(AlarmActive,uCount,False);
                  endif;
                endif;
              endif;
            endif;
          endif;
        endif;
      else
        if Bit(Alarm[uCount].ThisDay,AlarmData[3]) then
          if (Alarm[uCount].Hour=AlarmData[2]) or (Alarm[uCount].Hour=$FF) then
            if (Alarm[uCount].Minute=AlarmData[1]) or (Alarm[uCount].Minute=$FF) then
              SetBit(Result,uCount,True);
              t:=Alarm[uCount].ThisDay;
              if not T.7 then
                SetBit(AlarmActive,uCount,False);
              endif;
            endif;
          endif;
        endif;
      endif;
    endif;
  endfor;
  Return(Result);
end;