BD con campos establecidos y dinamicos

[martini002]

Mira lo resolvi, no como queria pero igual me funciona muy bien
inclusive mejor, hice esto mira:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
  Suma:Integer;
begin
if StrToInt(Edit1.Text)>0 then
  ZQueryBD.Close;
  ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Insert Into Factura (Articulo, Precio) Select Articulo, Precio From Inventario Where Codigo = '+Edit1.Text;
  ZQueryBD.Open;
  ZQueryBD.Close;
  ZQueryBD.SQL.Clear;
  ZQueryBD.SQL.Text:= 'Select * From Factura';
  ZQueryBD.Open;
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Text:=  'Select Sum(Precio) as Suma From Factura';
  ZQuery1.Open;
  Edit3.Text:= ZQuery1.FieldByName('Suma').AsString+' BsF';
end;

Gracias