Que tiene esta Rutina?

[esimon]

Buena Tarde para todos.

estoy tratando de hacer una pantalla para buscar, pero no se por que no me esta funcionando le voy a decir que estoy haciendo y como lo hago.

Estoy usando lo siguiente

• un RadioGroup1
  un edit y un DBGrids

el RadioGroup, es para seleccionar por el tipo que quiero buscar, el Edit escribo el contenido del campo y el DBGrid es para que me baya mostranto a medida que baya digitando en el Edit me muestre los datos en el DBGrids.
esta es la rutina que uso, en el Evento OnChange del Edit.

procedure TFrm_Buscar.Edit1Change(Sender: TObject);
const
STRSQL = 'Select * From Informacion_Convenio';
begin
 case RadioGroup1.ItemIndex of
 1 : begin
  qry_Buscar.Close;
  if (Edit1.Text = '') then begin
      Qry_Buscar.SQL.Text := STRSQL;
  end
  else begin
       Qry_Buscar.SQL.Text := STRSQL +
       ' WHERE Descripcion_Organizacion LIKE ' +QuotedStr('%' +Edit1.Text+ '%')
       end;
       Qry_Buscar.Open;
end;
end;    
end;

no se que estoy haciendo mal pero no me funciona, los campos son de texto y uso Accesse