Delphi - Algoritmo de Fecha

Hola y saludos desde La Habana...
Necesito un algoritmo que me permita restringir el uso de un TDateTimePicker a la semana en curso..para hacer reservaciones en sus dias, pero solo de la semana en curso.
Ya se que con el MinDate puedo ponerle la fecha actual para restringirlo al dia actual(TDateTimePicker.MinDate := Now - 1) pero como hacer esto para que TDateTimePicker.MaxDate := Domingo de esa semana????.
Las reservaciones que necesito hacer sus fechas deben ir desde el dia actual hasta el domingo de esa semana, y que lo incluya, por supuesto. Al llegar el lunes de la semana siguiente necesito que ese proceso se repita.
De veras estoy perdido con el TDateTimePicker, y a pesar de que ya he intentado hacerlo varias veces no me trabaja...
Ademas, deseo FELICITAR a todos los que tengan que ver con esta Web.... de veras que estan fuera de LIGA.. dicho en buen Cubano..
GRACIAS

Prueba con algo asi.

var
Hoy: Integer;
begin
Hoy:= DateTimeToTimeStamp(Date).Date mod 7;
with DateTimePicker do
begin
MinDate:= Date;
if Hoy > 0 then MaxDate:= Date + 7 - Hoy
else MaxDate:= Date;
end;
end;