[marcoszorrilla]

No me consta la existencia de dicha función, pero puedes probar con esta idea:

procedure TForm1.Button1Click(Sender: TObject);
var
dIni:Tdate;
dFin:Tdate;
nDias:Integer;
begin
dIni:=date - 3;
dFin:=date + 29;
nDias:=0;

 While dIni <= dfin do
 begin


   if FormatDateTime('ddd',dIni) = 'lun' then
   nDias:= nDias + 1;

 dIni:= dIni +1;

 end;

 ShowMessage('Hay '+IntToStr(nDias)+' lunes');
end;

También puedes utilizar la función DayOfWeek.

Un Saludo.