Como llevo esto a delphi?

[paladincubano]

Muchas gracias por tu respuesta, pero no es lo que busco.
En realidad conozco bien lo que hace la funcion WeekOfTheMonth.
No se si me hago entender.
Tengo una tabla con clientes y un campo Fecha_nac.

Cuando hago el
Select DATEPART(week, fecha_nac) - DATEPART(week, DATEADD(month, DATEDIFF(month, 0, fecha_nac), 0))+1 as SemanaMes from Clientes

me devuelve esto por ejemplo
SemanaMes
-----------
1
1
4
3
2
5
1

y cuando a esas mismas fechas les paso la funcion en delphi, se asemejan mucho los numeros, ejemplo
WeekOfTheMonth(Fecha_nac)
1
1
3
3
2
5
2

Muchos coinciden, pero otros no, y como me hace falta para mi programa que sea lo mismo que le digo, porque en delphi tengo que obtener otras fechas que no estan en la base de datos. Pues eso tiene que darme los mismos valores.
Resumiendo, la consulta y la funcion no siempre devuelven los mismos valores, por eso es que quiero haceer mi propia funcion respecto a la funcion de la consulta.
pero como no se que devuelve el DatePart, el dateadd y el datediff, por eso no puedo hacerla. ya que la consulta no la hice yo, la encontre en la web.
Espero me haga entender.
saludos