Hallar el número de la semana en que se encuentra una fecha

function NumSemana(Fecha:string):integer;
var
   PrimerDia:TDate;
   DiaDelPrimerDia:integer;
begin
    {Calculamos primer dia del año}
    PrimerDia:=StrToDate('01/01/'+Copy(Fecha,7,2));
    {Calculamos dia de la semana que empieza por lunes}
    If DayOfWeek(PrimerDia)-1 =0
      then DiaDelPrimerDia:=7
      else DiaDelPrimerDia:=DayOfWeek(PrimerDia)-1;

    {Calculamos el numero de semana del año}
    Result:=Trunc(
                 (StrToDate(Fecha)-
                 PrimerDia+
                 DiaDelPrimerDia-1
                 ) /7)+1;
end;