[Jheysson13]

puedes tambien dividir la fecha actual en 3 valores. en delphi seria algo como esto:

Código Delphi [-]
var año,me,dia:word;
     presente:tdatetime;
begin
presente:=now;
DecodeDate(Presente,ano, mes, dia);

edit1.text:=inttostr(ano);   // para el año actual
edit2.text:=inttostr(mes);  // para el mes actual;

end;

no recuerdo si esta todo bien pero bueno revisa y pregunta cualquier duda