Como llevo esto a delphi?

[paladincubano]

Hola foreros.
Tengo esta funcion en SQL:

DATEPART(week, fecha_nac) - DATEPART(week, DATEADD(month, DATEDIFF(month, 0, fecha_nac), 0))+1

La cual me devuelve el numero de semana del MES que esta en el campo Fecha_Nac.
Me gustaria llevar esa funcion a Delphi, como seria???

OJO: He usado la funcion de DateUtils.WeekOfTheMonth pero hay algunos valores que no me coinciden con lo de la consulta, he visto de todo, he encontrado miles pero ninguna nunca me coincide con la de DateUtils, por eso quiero hacer mi propia funcion en delphi que siga la misma sintaxis de la consulta en SQL para que me coincida tanto la consulta como la funcion en delphi. me entienden?
Muchas gracias y me urge un poco por favor.

function MyWeekOfTheMonth(Date: TDate): Integer
begin
...
...
result := ???;
end;