Сортировка даты по месяцу

DEREK
Спасибо за такое решение. Немного не то, что я хотел.

Я сделал проект по которому у меня вопрос.

1. Как сделать так, что бы при открытии Form4 отображался сразу текущий месяц МАРТ со списком работающих и у кого день рождение в марте (сортировка по дате по увеличению)/ Необходимо отобразить именинников в текущем месяце.
2. Как менять список именинников в Form4 при смене месяца в DateTimePicker1
3. Подскажите, этот рабочий код правильно написан или его можно упростить или переписать:

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
    Form1.Label1.Caption := SQLExecute('SELECT  COUNT(*) FROM tbuser WHERE work=1 AND strftime(''%d.%m'', user_data)=strftime(''%d.%m'', ''now'')');
    Form1.Label3.Caption := SQLExecute('SELECT  COUNT(*) FROM tbuser WHERE work=1 AND strftime(''%d.%m'', user_data)=strftime(''%d.%m'', ''now'',''+1 day'')');
end;