Duda con Fecha

[Paulao]

Señores, tengo una duda asi:
DecodeDate(Fecha,Ano,Mes,Dia);
DiaDaSemana := DayOfWeek(Fecha);

DiaDaSemana me resuelta una descripcion del dia, si es Lunes, Viernes, Miercoles y etc, usando una Ordenacion:
1=Domingo
2=Lunes
3=Jueves y etecetera.
Ya Dia del DecodeDate, me resuelta siel dia es:
1,2,3,4,5,6,7,8,9,10,11,12 y atecetera.
Mi duda es, como hago para atribuir o comparar si hoy es dia 22, atribuir a este dia el DiaDaSemana(Lunes) y asi por adelante. Esta es mi duda. Como hacer.