Asignar fecha según el día elegido!!

[Casimiro Noteví]

Pero amigo, no envies un ejecutable, eso no sirve para nada
Manda el código fuente.
Aquí compartimos código, para aprender, pero un ejecutable no sirve.
Entiendo que quieres ayudar, pero así no ayudas, debes enviar sólo el código fuente del proyecto, ya cada uno lo compilará.
El prj los pas y los dfm

He borrado el ejecutable que has subido, además por cuestiones de seguridad.

[cubanbaker]

Me da verguenza ante tanta gente de este foro que sabe Delphi de verdad poner un codigo, pero traté de ayudar y así aprender yo también. Es una programación burda y una solución simplista, pero así pude hacerlo. Sé que tiene una forma de hacerla mejor y mas pequeña, por eso me gustaría cualquier arreglo y explicación de cómo hacerlo mejor.
Aquí les va...
Gracias

[Casimiro Noteví]

Pues yo no veo ninguna vergüenza, he visto el código y, como todo código, siempre es posible mejorarlo, pero si hace lo que tiene que hacer, entonces es perfecto.
Gracis por compartirlo

[cubanbaker]

Ahora solo falta que ella aparezca y diga si es eso lo que quiere hacer, así habrá valido la pena estar despìerto... jaja
Me gustaría me dijeras que arreglos le puedo hacer y cómo hacer menos lineas de código.
Me costó trabajo entender lo que quería (digo, si es eso)
Saludos