Hola
Suponiendo que la palabra ACTIVO sea un string:
Código Delphi
[-]
DM.CONSULTA.CLOSE;
DM.CONSULTA.SQL.Text:= 'UPDATE ORDENES SET ESTADO = ''ACTIVO'' WHERE NRO_ORDEN = :A ';
DM.CONSULTA.Parameters[0].Value:= Edit1.Text;
DM.CONSULTA.ExecSQL;
DM.Transaction.CommitRetaining;
Saludos