function GetFieldValue(Fld: TField): Variant;
begin
if not VarIsEmpty(Fld.NewValue) then
Result := Fld.NewValue
else
Result := Fld.OldValue;
end;
begin
if not VarIsEmpty(Fld.NewValue) then
Result := Fld.NewValue
else
Result := Fld.OldValue;
end;