procedure TForm1.Button1Click(Sender: TObject);
var
fechafiltro: TDate;
filtro: String;
begin
fechafiltro := EncodeDate(StrToInt(ano.Text),StrToInt(mes.Text),StrToInt(dia.Text));
filtro:= 'FECHA ='+FormatDateTime('dd/mm/yyyy',fechafiltro);
Dbf1.Filtered := False;
Dbf1.Filter := filtro;
Dbf1.Filtered := True;
end;