function GetFieldValue(Fld: TField): Variant; 

  begin 

    if not VarIsEmpty(Fld.NewValue) then 

      Result := Fld.NewValue 

    else 

      Result := Fld.OldValue; 

  end;