[Caminante]

Empezado por juanelo

Prueba con Trim.

Código Delphi [-]
EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo  varchar y su valor es CAJA   
 IF NOT (EDIT37.Text.Trim='CAJA')
 THEN BEGIN  SHOWMESSAGE('NO SE PUEDE EDITAR');  
END;

Creo q deberia ser:

Código Delphi [-]
EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo  varchar y su valor es CAJA   
 IF NOT (trim(EDIT37.Text)='CAJA')
 THEN BEGIN  SHOWMESSAGE('NO SE PUEDE EDITAR');  
END;