[[Bicho]]

A ver que nos estamos liando.

1.- Donde se produce exactamente el error (en que linea de las que has puesto)
2.-

Código Delphi [-]
procedure TAltas.PO(Sender: TObject);
begin
Con_Art_Bar.Open; //Esto no. Debes desactivarlo al inicio de la funcion y activarlo cuando quieras ejecutar la sentencia
Con_Art_Bar.SQL.Clear;
Con_Art_Bar.SQL.Add('SELECT Min(Precio) AS minimo, Articulo, Nombre, ');
Con_Art_Bar.SQL.Add('Precio, Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('FROM proveedores, articulos');
Con_Art_Bar.SQL.Add('where proveedores.Cod_Proveedor = Articulos.Cod_Proveedor');
Con_Art_Bar.SQL.Add('GROUP BY Articulo, Nombre, Precio, ');
Con_Art_Bar.SQL.Add('Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');
Con_Art_Bar.Active := True;
end;

Saludos