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<Boolean>(AField.Value).AsType<Boolean>);

Outro lugar dando invalidTypeCast

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