[ZiriusB]

Código Delphi [-]
procedure TForm7.FormCreate(Sender: TObject);
//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;

esta colocado en el Formcreate... no hay lineas antes de esas, de todas formas revisare a fondo!