Delphi - Query

Quiero buscar cadenas de texto en un campo con el TQuery y un edit y pongo esto:

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('FROM * articulo.db');
Query1.SQL.Add ('WHERE Descripcion = ' + Edit1.Text);
Query1.Open;
end;

Intruduzco la palabra din en el edit y me dice que no encuentra ningún campo
llamado din.
El TQuery funciona correctamente con consultas estructuradas.
Gracias

Eso puede hacerse sin tener que usar una consulta, conel componente adotable.
tiene una propiedad Locate

ej;

adotable1.NombreTabla.Locate('NombreCampo', edit1.text, [locaseinsensitive]);

locaseinsensitive: es para buscar lo que pusiste exactamente
loPartialKey: para buscar si coincide unque no sea igual