Restar un dia a Datetimepicker sin contar fines de semana

[ecfisa]

Hola.

A mi no me dá error ni siquiera en el evento OnCreate...

Código Delphi [-]
implementation

uses DateUtils;

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;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DateTimePicker1.Date:=  LaboralAnterior(Now);
end;

Este código funciona correctamente.

Por otro lado el error : Missing operator or semicolon, se produce por que falta un operador entre dos expresiones o por que falta un punto y coma entre dos sentencias.

Saludos.