La verdad es que no entiendo del todo lo que preguntas.
Sin embargo, a ver si esto te sirve:
Código Delphi
[-] if 22 = DayOfTheMonth ( now )
then ....
DayOfTheMonth te devuelve el día del mes de la fecha que está entre paréntesis.
now es una función que te da la fecha y hora del momento en el que es llamada.
Espero que te sirva.
Saludos.