Source position: dbuscomp.pp line 284
type TDBusMessageHandler = procedure(
Sender: TObject;
Msg: TDBusMessage;
var AResult: DBusHandlerResult
) of object;