OnAfterModify event fire twice if using IB_Column.AsVariant:

- first when setting the field as not Null
- second when setting the value of the field

IB_Column.AsString work as expected - fire only once

IB_Column.AsVariant := 'test';
and
IB_Column.AsString := 'test';

should behave the same.

The logic of setting a variant value (and TIB_Column.Assign(TIB_Column))
should be changed.

Regards,
Andreas Hesse