Sin saber qué base de datos estás usando, ni qué componentes, ni qué otro código, ni nada de nada... prueba a hacerlo así:
Código Delphi
[-]_DM.consulta1.Close;
_DM.consulta1.SQL.Text:= 'DELETE FROM usuarios WHERE id_us = '+ QuotedStr(DBEdit1.text);
_DM.consulta1.ExecSQL;
_DM.consulta1.Transaction.CommitRetaining;