while not qPoints.eof do
     begin
        qinsert.close;
        qinsert.sql.text :='select count(*) as kol from  tmp_svod_podrs where nzp_podr='+ qPoints.FieldByName('nzp_podr').Asstring;
        qinsert.open;
        if qinsert.fieldbyname('kol').asInteger=0 then
        begin
              qinsert.close;
              qinsert.sql.text :='insert into tmp_svod_podrs (status,nzp_podr,name) values (0,'''+ 
                                       qPoints.FieldByName('nzp_podr').Asstring+''','''+ qPoints.FieldByName('name').Asstring+''')';
              qinsert.open;
              qinsert.close;
              qinsert.sql.text :='commit ';
              qinsert.open;
        end;
        qPoints.next;
      end;
      qPoints.close;