Supongo que te da el error al grabar los datos, para que tome los valores correctos, puedes utilizar el evento OnSetText de tu mismo campo:
Código Delphi
[-]
procedure QueryEstadoSetText(Sender: TField;
const Text: String);
begin
if Text='Activado' then
Sender.Value := True
else
Sender.Value := False;
end;
Saluditos