Source position: fpfcmclient.pp line 61
type TFCMBearerTokenEvent = procedure(
Sender: TObject;
const aToken: TBearerToken
) of object;