como usar o comando commit neste codigo.

with dmBaseDados1.tblFornecedores Do
Begin
//Sempre que for Gravar, alterar ou Excluir algo do Banco sempre use o Try.
//Se não usar, caso ocorrer um erro, o delphi mostras suas mensagens em Ingles,
//Padronize suas proprias mensagens em português.
Try
append;
FieldByName(´CodigoFornecedor´).AsString := edtCodigo.text;
FieldByName(´RAZAOSOCIAL´).AsString:= edtRazaoSocial.text;
FieldByName(´NomeFantasia´).AsString:= edtNomeFantasia.text;
FieldByName(´CNPJ´).AsString:= mskCNPJ.text;
FieldByName(´InscricaoEstadual´).AsString:= mskInscEStadual.text;
FieldByName(´Endereco´).asString := edtEndereco.text;
FieldByName(´Bairro´).AsString:=edtBairro.text;
FieldByName(´Cidade´).AsString:=edtCidade.text;
FieldByName(´Estado´).AsString:=copy(cmbEstado.Text,1,2);
FieldByName(´REPRESENTANTEVENDAS´).AsString:=edtRepresentanteVendas.text;
FieldByName(´Telefone´).AsString:=mskTelefone.text;
FieldByName(´FAX´).AsString:= edtFax.text;
FieldByName(´TELEFONEVENDAS´).AsString:=mskTelefoneVendas.text;
FieldByName(´Cep´).AsString:=mskCep.text;
FieldByName(´Observacao´).AsString:=edtObservacao.text;
FieldByName(´DataCadastro´).AsString:=txtDataCadastro.text;
Post;
Except
Cancel;
Application.MessageBox(´Ocorreu um Erro ao Gravar os Dados.´, ´Atenção´ , mb_OK+mb_IconInformation);
Exit;
End;
End;
limpatela;
Posicao2;
end;