Problemas con una condición IF

[negrokau]

Hola amigos, tengo un incoveniente, que no puedo resolver, a lo mejor es una sonsera, pero ya le di muchas vueltas y no consigo que funcione mi condicion...
Aca les dejo como lo tengo hecho:

Código Delphi [-]
 

EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo  varchar y su valor es CAJA  

IF NOT (EDIT37.Text='CAJA') THEN
BEGIN 
SHOWMESSAGE('NO SE PUEDE EDITAR'); 
END;

Les agradeceria su ayuda... desde ya muchas gracias....