Source position: cbillingclient.pas line 364
type TOnConsumedData = procedure(
Sender: TObject;
Action: TConsumedDataAction
) of object;