مشاكل في حساب التاريخ

[محمد عبد العزيز]

edit الأول فيه : 04/05/2008
edit الثاني أضع فيه مثلا 6 أشهر
تخرج لي النتيجة في edit الثالث على الشكل التالي :
04/12/2008

النتيجة 04/11/2008

كود :

Var DT : TDateTime; X,Y,M,D : Word; begin DT := StrToDate(Edit1.Text); DecodeDate(DT,Y,M,D); X := StrToInt(Edit2.Text); M := M + X; if M>12 then Begin M := M-12; Y := Y+1; End; DT := EncodeDate(Y,M,D); Edit3.Text := DateToStr(DT); end;

هذا ليس حل 100% البقية عليك

والسلام عليكم ورحمة الله