Первый [понедельник] месяца, второй [четверг] месяца и т. Д. Delphi

Используя Delphi, мне нужна функция для оценки текущей даты и проверки, например, третье воскресенье месяца и т. д. .

В псевдокоде:

function IsFirst(const CurrentDateTime: TDateTime; const Day: Word): Boolean;
/// Day can be 1-7 (monday to sunday)
begin
  Result:= ??
end;

Для вычисления второго, третьего, четвертого и последнего месяца месяца потребуется другая функция. Кажется, у DateUtils нет ничего подобного. Есть идеи?