Restar un dia a Datetimepicker sin contar fines de semana

[ZiriusB]

Buenas amigos, tengo el siguiente problema...

Necesito que en un Datatimepicker se muestre el dia anterior al actual,

Código Delphi [-]
procedure TForm7.FormActivate(Sender: TObject);
Var
midate:TDate;
begin
midate:=now-1;
HFecha.DateTime:= midate;
end;

Hfecha es el Datetimepicker, todo bien, me coloca el dia anterior pero el problema es que solo quiero que me coloque los dias laborables (Lunes a Viernes) cuando llega el dia del lunes el Datetimepicker me muestra el dia Domingo, pero yo quiero que me muestre el dia Viernes que es el ultimo dia laborable!

¿Tienen alguna sugerencia?, Añado que el control se carga solo, no es un valor tomado de una base de datos ni algo por el estilo!

Saludos