IBDS1.InsertSQL.Clear;
  IBDS1.InsertSQL.Add('Insert into kart_tovar (naim, izg, mod, kat, prim, )');
  IBDS1.InsertSQL.Add('height, width, dlina ) values (:name, :izgot, :model');
  IBDS1.InsertSQL.Add(', :kateg, :opis, :vis, :shir, :dlin)');
  IBDS1.ParamByName('name').AsTrimString:=txtNaim.Text;
  IBDS1.ParamByName('izgot').AsInteger:=kodizg;
  IBDS1.ParamByName('model').AsInteger:=kodmod;
  IBDS1.ParamByName('kateg').AsInteger:=StrToInt(txtKat.Text);
  IBDS1.ParamByName('opis').AsTrimString:=txtPrim.Text;
  IBDS1.ParamByName('vis').AsInteger:=StrToInt(txtHeight.Text);
  IBDS1.ParamByName('shir').AsInteger:=StrToInt(txtWidth.Text);
  IBDS1.ParamByName('dlin').AsInteger:=StrToInt(txtDlina.Text);
  IBDS1.Insert;
  IBDS1.Post;

CREATE TABLE KART_TOVAR (
    ID_TOVAR  INTEGER NOT NULL,
    NAIM      VARCHAR( 60 ) DEFAULT 'Имя не присвоено' NOT NULL,
    IZG       INTEGER NOT NULL,
    MOD       INTEGER DEFAULT  0  NOT NULL,
    KAT       INTEGER NOT NULL,
    ED_IZM    VARCHAR( 4 ) DEFAULT 'ШТ.' NOT NULL,
    GARANT    NUMERIC( 3 , 1 ) DEFAULT  0  NOT NULL,
    GRUPA     VARCHAR( 2 ) DEFAULT 'C' NOT NULL,
    GTD       VARCHAR( 20 ) DEFAULT 'Не введен' NOT NULL,
    VES       NUMERIC( 8 , 2 ) DEFAULT  0 . 0  NOT NULL,
    HEIGHT    INTEGER DEFAULT  0  NOT NULL,
    WIDTH     INTEGER DEFAULT  0  NOT NULL,
    DLINA     INTEGER DEFAULT  0  NOT NULL,
    GABARIT   COMPUTED BY ((height*width*dlina)/ 6000 . 0000 ),
    PRIM      CHAR( 300 ) DEFAULT 'Без примечания' NOT NULL
);

CREATE TRIGGER NEW_ID_TOVAR FOR KART_TOVAR
ACTIVE BEFORE INSERT POSITION  0 
AS
begin
  if (new.id_tovar is null) then
     new.id_tovar=gen_id(id_tovar, 1 );
end