Recursive procedure die nicht macht was sie soll

[gangs-taas]

hey,
ich hab das hier geschrieben :

Delphi-Quellcode:

  procedure Nur_Wichtige_Termine(Datum : TDateTime; var W_T_Array : Array of TStringlist; Var Termine : TStringlist);

    procedure ErsterTagDerWoche(var Datum : TDateTime);
    var
      i : integer ;
    begin
      I := DayOfTheWeek(Datum);
      If  i <> 1 Then
      begin
        IncDay(Datum,-1); // <= hier Fehler
        ErsterTagDerWoche(Datum)
      end;
    end;

  begin
    ErsterTagDerWoche(Datum);
  end;

aber ich bekomme einen Stack-Überlauf ...
wenn ich mit Breakpoints da durch Steppe merke ich auch woran es liegt aber ich versteh nicht wieso :
in der Zeile wo er das Datum um eins reduzieren soll macht er das nicht ... aber ich versteh nicht warum nicht ?
der müsste doch eigl. machen was ich ihm da sag oder nicht ?
warum tut er das nicht...

Die Ursache für den Fehler ist, dass i nie 1 wird... aber ich verstehe nicht waurm nicht ...