BBDD.TMedicaciones.Filter:='residente= ' + QuotedStr(CBNombre.Text) + ' and ' + 'suspendido= ' + QuotedStr('No'); BBDD.TMedicaciones.Filtered:=true;