Hola José Luis.
Hay un detalle en el código que te puse, que si bién no afecta el funcionamiento, es innecesario.
Donde dice:
Código Delphi
[-]
StringOfChar('0',4-Length(IntToStr(YearOf(Now))))+IntToStr(YearOf(Now))
Bién podría decir
con el mismo efecto...
Saludos.