Invalid Type Cast

[devlider]

Bom dia estou com problema de invalid type cast, ao tentar converter Variant para boolean, segue imagem em anexo.

troquei para:
LProperty.SetValue(AObject, TValue.From(AField.Value).AsType);

Outro lugar dando invalidTypeCast

troquei para:
Result := Result + LColumnName + ' = ' + AID.ToString