Работа с датами

[Alsou]

Здравствуйте! У меня есть проблемка. Имеется таблица Население, из которой нужно отфильтровать детей в возрасте до 7 лет. Перепробовала все, но не получается.
Есть такой программный код:
var
y, m, d: Integer;
N, C: TDate;
begin
N := StrToDate('4.10.2008');
C := StrToDate('4.10.2009');

y := _YearsBetween(N, C);
m := _MonthsBetween(N, C);
d := _DaysBetween(N, C);

ShowMessageFmt('%d'#13#10'%d'#13#10 '%d', [y, m, d]);
end;
Но как применить его к фильтрации?
Помогите пожалуйста.

[Пепел Феникса]

N := Date;
C := <дата рождения человека ставите>;
if YearsBetween(N,C)<7{младше семи лет...4,5,6, но 7 уже не идет} then <делаете чтото>

[Alsou]

Я так и делала, как вы написали, но все равно облом(((

[SERG1980]

Сообщение от Alsou

Я так и делала, как вы написали, но все равно облом(((

Как то вы не так делаете, всё работает

uses DateUtils;//не забываем подключать
.......
procedure TForm1.Button1Click(Sender: TObject);
var N,C:TDate;
begin
  n:=Now;
  c:=StrToDate('10.10.04');
  if YearsBetween(N,C)<7 then showmessage('меньше семи');
end;