Restar un dia a Datetimepicker sin contar fines de semana

[ZiriusB]

Saludos ROMAN gracias por responder

me suelta este error el ejemplo que tu me diste

[DCC Error] PaseHoras.pas(154): E2066 Missing operator or semicolon

Código Delphi [-]
//begin
//midate:=now-1;
function LaboralAnterior(ADate: TDate): TDate;
const
  Dias: array[1..7] of Integer = (3, 1, 1, 1, 1, 1, 2);

begin
  Result:= ADate - Dias[DayOfTheWeek(ADate)];
end;

Me lo señala en esta linea

Código Delphi [-]
  Result:= ADate - Dias[DayOfTheWeek(ADate)];

pero no veo que falte algun parentesis o corchete!