No me consta la existencia de dicha función, pero puedes probar con esta idea:
Código:
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.