DateEdit manuelle zeit änderung ?

[Tripple]

Moin ,
Ich möchte gerne die zeit des DateEdits manuell ändern ,
nun habe ich das problemechen dass ich nur 1 monat zurück kann und nach vorn bis anfang nechsten jahres (heist -März 2015 , +Jan 2016)
Fehler = Ungültieges Argument zum Codieren des Datums .

Es handelt sich um eine FMX Anwendung .

Delphi-Quellcode:

var Mon,yea,dday:word;
begin
    DecodeDate(dateedit1.Date,yea,mon,dDay);
    if mon = 1 then  begin
       yea := yea -1;   mon := 12; end else
    mon := mon-1;

    dateedit1.Date := EncodeDate(yea,mon,dday);

Hab keine ahnung was ich falsch mache

Danke
MFG Tripple