Source position: fpfcmclient.pp line 60
type TFCMResponseEvent = procedure(
Sender: TObject;
const aResponse: TFCMResponse
) of object;