[[Lepe]]

Código Delphi [-]
 
insertar : string;
 xpaquete : integer;
 nombre : string;
begin
   dbenombre.SetFocus;
   dbetipo.Text := '';
   if dbetipo.Text = '' then
   dbetipo.Text := '0';
   xpaquete := Strtoint(dbetipo.Text);
    if dbetipo.Text = null or 0 then
       begin
       showmessage('nulo');
       insertar := 'select max(paquete) + 1 from tipopaquetes';
       qtipos.SQL.Add(insertar);
       qtipos.Active := True;
       qtipos.Open;
       xpaquete := qtipos.Recordset.Fields[0].value;
    end;

    qtipos.Close;  // *******************
    qtipos.sql.Clear;// *******************

    nombre := dbenombre.Text;
    insertar := 'insert into tipopaquetes (paquete, nombre) values (';
    insertar := insertar + intToStr(xpaquete) + ',';
    insertar := insertar + chr(39)+ nombre + chr(39) + ')';
    showmessage(insertar);
    qtipos.SQL.Add(insertar);
    qtipos.ExecSQL;

Saludos