Controle de lock.

if (SPGEN <> nil) then begin
      if ((DataSource as TDatasource).DataSet as TIBDataset).State = dsInsert then begin
        (SPGEN as TIBStoredProc).ParamByName(´INCREMENTO´).AsInteger := 1;
        (SPGEN as TIBStoredProc).ExecProc;
        if (SPGEN as TIBStoredProc).ParamByName(´VALOR´).AsInteger <> (StrToInt((EditChave[0] as TEdit).Text) + 1) then begin
          (EditChave[0] as TEdit).Text := StrZero(IntToStr((SPGEN as TIBStoredProc).ParamByName(´VALOR´).AsInteger - 1), 5);
          ((DataSource as TDatasource).DataSet as TIBDataset).FieldByName(copy((EditChave[0] as TEdit).Name, 3, length((EditChave[0] as TEdit).Name) - 2)).AsString := (EditChave[0] as TEdit).Text;
          Application.MessageBox(PChar(´O código foi alterado para ´ + (EditChave[0] as TEdit).Text), ´Atenção...´, 0);
        end;
      end;
    end;
    try
      ((DataSource as TDatasource).DataSet as TIBDataset).Post;
      if ((DataSource as TDatasource).DataSet as TIBDataset).CachedUpdates then
        ((DataSource as TDatasource).DataSet as TIBDataset).ApplyUpdates;
      ((DataSource as TDatasource).DataSet as TIBDataset).Close;
         {Se Tag do transaction for <> 0 não commita}
      if (((DataSource as TDataSource).DataSet as TIBDataSet).Transaction as TIBTransaction).Tag = 0 then
        (((DataSource as TDataSource).DataSet as TIBDataSet).Transaction as TIBTransaction).Commit;
      Result := True;
    except
   (SPGEN as TIBStoredProc).ParamByName(´INCREMENTO´).AsInteger := -1;
   (SPGEN as TIBStoredProc).ExecProc;
   Result := False;
    end;

procedure TfrmCadEquipamentos.FrameCad1BtnSalvarClick(Sender: TObject);
var
  codequipamento : Integer;
begin
  if not Verificacao then Exit;
  with qryCadEquipamentos do
    begin
      Close;
      SQL.Clear;
      if not status then
        begin
          SQL.Add(´insert into EQUIPAMENTOS                     ´ +
                  ´(CODEQUIPAMENTO,NOMEQUIPAMENTO,IDCODMOTOR,   ´ +
                  ´IDCODCOMPRESSOR,IDCODGAS,VOLTS,VALORUNITARIO)´ +
                  ´values (:CODEQUIPAMENTO,:NOMEQUIPAMENTO,     ´ +
                  ´:IDCODMOTOR,:IDCODCOMPRESSOR,:IDCODGAS,      ´ +
                  ´:VOLTS,:VALORUNITARIO)                       ´);
        end
      else
        begin
          SQL.Add(´update EQUIPAMENTOS set                ´ +
                  ´NOMEQUIPAMENTO = :NOMEQUIPAMENTO,      ´ +
                  ´IDCODMOTOR = :IDCODMOTOR,              ´ +
                  ´IDCODCOMPRESSOR = :IDCODCOMPRESSOR,    ´ +
                  ´IDCODGAS = :IDCODGAS,                  ´ +
                  ´VOLTS = :VOLTS,                        ´ +
                  ´VALORUNITARIO = :VALORUNITARIO         ´ +
                  ´where CODEQUIPAMENTO =:CODEQUIPAMENTO´);
        end;
      codequipamento:= StrToInt(edtCodigo.Text);
      ParamByName(´NOMEQUIPAMENTO´).AsString:= edtNome.Text;
      ParamByName(´IDCODMOTOR´).AsString:= idcodmotor;
      ParamByName(´IDCODCOMPRESSOR´).AsString:= idcodcompressor;
      ParamByName(´IDCODGAS´).AsString:= idcodgas;
      case cmbVolts.ItemIndex of
        0:ParamByName(´VOLTS´).AsInteger := 12;
        1:ParamByName(´VOLTS´).AsInteger := 24;
      end;
      vlrunitario:= TextToCurr(edtValor.Text);
      ParamByName(´VALORUNITARIO´).AsCurrency:= vlrunitario;
      {
      Verifica o Código do Equipamento, com a Dica
      do Pessoal, que frequenta o fórum (ClubeDelphi).
      }
      if not status then // Verifica somente, para inserir registro.
        begin
          qryTesteClubeDelphi.SQL.Clear;
          qryTesteClubeDelphi.SQL.Add(´select CODEQUIPAMENTO from EQUIPAMENTOS ´ +
                                  ´where CODEQUIPAMENTO = :CODEQUIPAMENTO ´);
          qryTesteClubeDelphi.ParamByName(´CODEQUIPAMENTO´).Value:=
          codequipamento;
          qryTesteClubeDelphi.Open;
          if not qryTesteClubeDelphi.IsEmpty then
            begin
              ShowMessage(´Já Existe um Registro com esse Código.        ´ +
              ´ Seu código foi Alterado para ´+IntToStr(codequipamento +1));
              codequipamento:= codequipamento+1;
            end;
        end;
      ParamByName(´CODEQUIPAMENTO´).AsInteger:= codequipamento;
      ExecSQL();
    end;