Un par de ayuditas

[[Bicho]]

Ok, por lo que veo efectivamente debes usar esto

Código Delphi [-]
Con_Art_Bar.ParamByName('Artic').AsString := lista_Art.SelectedItem;

- Escribe por favor el error que te devuelve al compilar.
- ¿De que tipo es el objeto Con_Art_Bar? ¿Es un TQuery o descendiente suyo?
- Otra cosa, tambien puedes probar con la propiedad Params, que funciona igual que Parambyname, pero en lugar de indicarle el nombre del parámetro que quieres asignarle valor, usas el índice del parámetro. En tu caso sería el 0, ya que es el primer parámetro, si tienes más tendrías que indicarle el orden que ocupa.

[Ubed]

Ya lo solucione al final ice esto:

Con_Art_Bar.SQL.Add('HAVING Articulo='''+ lista_art.SelectedItem +'''');

Con_Art_Bar es un ADOQuery

[[Bicho]]

Tambien es una solución.

Una ayuda al respecto, para evitar posibles lios en el futuro con tanta comilla, es usar lo siguiente

Código Delphi [-]
Con_Art_Bar.SQL.Add('HAVING Articulo=' + QuotedStr(lista_art.SelectedItem) );

Así sólo pones la comilla para finalizar el string y te olvidas de todos los demás.

Saludos