Прблема с поиском Даты рождения

procedure TForm5.Edit1Change(Sender: TObject);
var
 d:string;
begin
datasource1.DataSet:=ADOQuery1;
if trim(edit1.Text)='' then
  begin
   adoquery1.SQL.Clear;
   adoquery1.SQL.Append('Select *');
   adoquery1.SQL.Append('From Ученики');
   ADOQuery1.SQL.Append('order by Год рождения;');
   ADOQuery1.Open;
   exit;
  end;
 d:='Where';
 d:=d+'(Год рождения like '+quotedstr('%'+edit1.text+'%')+') or';
 if copy(d,length(d) -1,2)='or' then d:=copy(d,0,length(d) -2);
  adoquery1.SQL.Clear;
  adoquery1.SQL.Append('Select *');
   adoquery1.SQL.Append('From Ученики');
if trim(edit1.Text)<>'' then
  adoquery1.SQL.Append(d);
 ADOQuery1.SQL.Append('order by Год рождения;');
  ADOQuery1.Open;
  ADOQuery1.Active:=true;
end;

procedure TForm5.Edit1Change(Sender: TObject);
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From [Ученики]');
  if Length(Edit1.Text)>0 then ADOQuery1.SQL.Add('Where [Год рождения]='+Edit1.Text);
  ADOQuery1.SQL.Add('order by [Год рождения]');
  ADOQuery1.Open;
end;

if Length(Edit1.Text)>0 then ADOQuery1.SQL.Add('Where [Год рождения]='+IntToStr(StrToIntDef(Edit1.Text,0)));