Fieldbyname ADOTable

[leian1306]

Buenas tardes!
Tengo una aplicación con un Data Module (DM) que tiene varias tablas y una que se llama "tabla_ejercicios" con varios campos.

Yo tengo esta función:

Function CantEjerciciosPublicados():integer;
var
total,POS:integer;
begin
total:=0;
POS:=DM.tabla_ejercicios.Fieldbyname('idejercicio').AsInteger;
DM.tabla_ejercicios.First;
while NOT(DM.tabla_ejercicios.Eof) do begin
if(DM.tabla_ejerciciospublicadoenpractica.Value=TRUE)then
Inc(total);
DM.tabla_ejercicios.Next;
end;
DM.tabla_ejercicios.Locate('idejercicio',POS,[]);
RESULT:=total;
end;

La tabla_ejercicios tiene un campo "publicadoenpractica" con valores TRUE o FALSE, y en la línea esta: if(DM.tabla_ejerciciospublicadoenpractica.Value=TRUE)then
... por alguna razón no entra nunca en el IF,siempre lo saltea,tengo abierta la base de Access y efectivamente tiene valores en TRUE,de manera q tendria q entrar en ciertos momentos.
El campo de la tabla tiene la propiedad "DisplayValues=Si;No",para que muestre Si en lugar de TRUE y No en lugar de FALSE. Intente incluso haciendo lo siguiente: if(DM.tabla_ejercicios.Fieldbyname('publicadoenpractica').AsString='Si')then
...pero tampoco funciona.

Si alguien me pudiera decir que puede llegar a estar andando mal se lo agradecería muchísimo. Saludos!