try
            with ADOQuery1 do
            begin
                close;
                sql.Clear ;
                SQL.Add('insert into  (zone,name) values(:zid,:name)');
                Parameters.Parambyname('zid').Value:=z_id;
                Parameters.Parambyname('name').Value:=z_name;
                execSQL;
            end ;
          except
            showmessage('error insert0');
          end;