Un par de ayuditas

[[Caral]]

Hola
Bienvenido/a al club, es umportante que leas la guia de estilo.
Con relacion a tu pregunta:

Código Delphi [-]
procedure TAltas.PO(Sender: TObject);
begin
Con_Art_Bar.SQL.Clear;
Con_Art_Bar.active := False;
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;
DBText1.Visible := True;
DBText2.Visible := True;
DBText3.Visible := True;
DBText4.Visible := True;
DBText5.Visible := True;
DBText7.Visible := True;
end;

Me parece que falta esto.
Saludos