try
frm_DataModule.trans_commit.StartTransaction;
frm_DataModule.qry_usuarios.Close;
frm_DataModule.qry_usuarios.SQL.Clear;
frm_DataModule.qry_usuarios.SQL.Text 'INSERT INTO USUARIOS (NOMBRE, APELLIDOP_US) ' +
'VALUES ('+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+')';
frm_DataModule.qry_usuarios.ExecSQL;
frm_DataModule.trans_commit.Commit;
Except
frm_DataModule.trans_commit.Rollback;
end;
Close ();