if Edit8.Text <> '' then begin DataModule1.QMae.Filtered:=True; DataModule1.QMae.Filter:='Nombre = '+QuotedStr(Edit8.Text+'*'); end