Incisto con la
Guía de Estilo!!!
PD: A simple vista tu código tiene un par de errores:
Te falta un paréntesis en la línea:
Código:
DMR.MITABLA.SQL.Add('WHERE STATUS=' +QuotedStr('CADENA' );
Debes agregar un operador, por ejemplo AND, antes de la seguna condición, por ejemplo:
Código:
DMR.MITABLA.SQL.Add('AND ENTRADA');
Saludos!