hola como estas....
necesitarias lo siguiente
tEdit
adoquery (suponiendo que te conectas via ADO)
la cosa seria mas o menos asi
Código Delphi
[-]
StrSql := 'Select * from tablamedicamente where Drogueria = ' + qoutedStr('%'+edit1.text+'%');
AdoQuery1.Sql.Clear;
AdoQuery1.Sql.Add(StrSql);
AdoQuery1.open;
hay muchas formas... te estoy presentando una... seguro que alguien mas te indicara otra forma de hacerlo