Delphi - Ayuda con función para detectar días

Hola a todos.
Necesito de su ayuda, gente.
Tendría que hacer una función que me devuelva la cantidad de días martes que tiene el mes en curso.
Por las dudas, aclaro que son muy básicos mis conocimientos de Delphi, con lo cual la respuesta con la que me ayuden tendría que tener el código de la función completo.
Si pueden darme una mano, será realmente una ayuda!!
Muchas gracias.
Saludos.