[Caminante]

Hola

Y si compruebas directamente el valor del campo?

Código Delphi [-]
IF NOT (Q_DET_APERTURA.Fieldbyname('TIPO').Asstring='CAJA') THEN
BEGIN 
SHOWMESSAGE('NO SE PUEDE EDITAR'); 
END;

Bueno es solo una sugerencia

Saludos