Source position: sensormanager.pas line 48
type TOnUnListeningSensor = procedure(
Sender: TObject;
sensorType: TSensorType;
sensorName: string
) of object;