بسيط وواضح جدا مع الحساب حسب الاعداد

begin
val:=0;
Table1.First;
while not Table1.Eof do
begin
if (Table1.FieldByName('Sex').Value='ذكر')and(Table1.FieldByName('Anneé de Naissance').Value= Edit5.Text)then
val:=val+1;
Table1.Next;
end;
val2:=0;
Table1.First;
while not Table1.Eof do
begin
if (Table1.FieldByName('Sex').Value='أنثى')and(Table1.FieldByName('Anneé de Naissance').Value= Edit4.Text) then
val2:=val2+1;
Table1.Next;
end;
Edit1.Text:=IntToStr(val+val2);
end;

procedure TForm2.Button4Click(Sender: TObject);