[ContraVeneno]

Cuando utilizas comandos "Select" , necesitas activar la consulta. Supongo que te hace falta:

Código Delphi [-]
Con_Art_Bar.Open;

Para insertar registros, puedes usar la cláusula "Insert" en lugar de un "Select"
y en este caso, todas las consultas que realizan una acción (insert, delete, create, etc) deben ser activadas con el comando ExecSQL:

Código Delphi [-]
Con_Art_Bar.ExecSQL;