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

[cubanbaker]

Casi Miro
Creo saber lo que quiere, hice un programita para ver si eso es lo que ella quiere, pero tiene 330 KB y aqui no me permite subir .rar mayores de 293 KB.
Qué puedo hacer para que ella vea el programa y me dice si es eso lo que quiere y ustedes también puedan verlo y entender que es lo que desea... (Ojala sea eso)
El código fuente es muy extenso para ponerlo aqui...

[Casimiro Noteví]

Hola, te he contestado el mensaje privado, seguramente has dejado el ejecutable, quítalo y deja sólo el código fuente del proyecto.

[cubanbaker]

Creo que esto es lo que ella quiere... Y así entendemos. Ojala y ese sea el problema que ella quiere resolver.

[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