وضع الشهر فقط في مربع النص؟

[ALG2009]

عذر لم أضع الكود الذي به الخطأ

كود :

  decodeDAte(date,Year,Month,day);   (Edit1.text:=datetostr(Month);

يظهر التاريخ كاملا وقديم01/04/1900
أريد إظهار الشهر الحالي 
لم تعمل DecodeDateTime

---

عذر لم أضع الكود الذي به الخطأ

كود :

   decodeDAte(date,Year,Month,day);    (Edit1.text:=datetostr(Month);

يظهر التاريخ كاملا وقديم01/04/1900
أريد إظهار الشهر الحالي 
لم تعمل DecodeDateTime