Editar Registro

CREATE TABLE LIVROS
(
  CODIGO        NUMERIC(15, 2) NOT NULL,
  NOME                VARCHAR(100) NOT NULL,
  QUANTIDADE        VARCHAR(50),
  TIPO                  VARCHAR(50),
  AUTOR          VARCHAR(100),
  SINOPSE        VARCHAR(1000),
  EDITORA               VARCHAR(50),
  EXEMPLAR              VARCHAR(50),
  VOLUME                VARCHAR(50),
  EDICAO                VARCHAR(50),
  ANO_EDICAO            VARCHAR(50),
  LOCAL                 VARCHAR(50),
  AREA                VARCHAR(50),
  STATUS        VARCHAR(50),
  RESERVA        VARCHAR(50),
CONSTRAINT PK_LIVROS PRIMARY KEY (CODIGO)
);

procedure TLivros.Btn_EditarClick(Sender: TObject);
begin
    if Livros.Edit_Nome.Text = ´´ then
    ShowMessage(´Campo Nome está vazio, por favor verifique´)
    else
        begin
            //If Not(DM.Tr_Livros.InTransaction) Then
            //DM.Tr_livros.StartTransaction;

            //DM.Tbl_Livros.Open;
            DM.Tbl_Livros.Edit;

            //DM.Tbl_Livros.FieldByName(´Codigo´).AsInteger   := StrToInt(Edit_Codigo.Text);
            DM.Tbl_Livros.FieldByName(´Nome´).AsString      := Edit_Nome.text;
            DM.Tbl_Livros.FieldByName(´Tipo´).AsString      := Combo_Tipo.text;
            DM.Tbl_Livros.FieldByName(´Quantidade´).AsString:= Edit_Qtdade.text;
            DM.Tbl_Livros.FieldByName(´Autor´).AsString     := Combo_autor.text;
            DM.Tbl_Livros.FieldByName(´Editora´).AsString   := Combo_Editora.text;
            DM.Tbl_Livros.FieldByName(´Sinopse´).AsString   := Memo_Sinopse.Lines.Text;
            DM.Tbl_Livros.FieldByName(´Area´).AsString      := Combo_Area.text;
            DM.Tbl_Livros.FieldByName(´Exemplar´).AsString  := Edit_Exemplar.text;
            DM.Tbl_Livros.FieldByName(´Volume´).AsString    := Edit_Volume.text;
            DM.Tbl_Livros.FieldByName(´Local´).AsString     := Edit_LocalEdicao.text;
            DM.Tbl_Livros.FieldByName(´Ano_Edicao´).AsString:= Edit_AnoEdicao.text;
            DM.Tbl_Livros.FieldByName(´Edicao´).AsString    := Edit_Edicao.text;

            DM.Tbl_Livros.post;
            DM.Tbl_Livros.ApplyUpdates;
            DM.Tbl_Livros.Close;

            ShowMessage(´Material Editado Com Sucesso.´);
            limpa_Edit;
            Btn_Salvar.Enabled   := False;
            Btn_Editar.Enabled   := FALSE;
            Btn_Up.Enabled       := true;
            Btn_Down.Enabled     := true;
            Edit_Disable;
        end;
end;