TSphere mithilfe MotionSensor drehen?

[derseitzer]

Ich würde gerne meine TSphere mithilfe meines MotionSensors drehen und habe diesen code in einen Timer mit 100ms geschrieben:

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
//Sphere1.RotationAngle.X := 360*MotionSensor1.Sensor.accelerationX;
//Sphere1.RotationAngle.Y := 360*MotionSensor1.Sensor.accelerationY;
//Sphere1.RotationAngle.Z := 360*MotionSensor1.Sensor.accelerationZ;
Dummy1.RotationAngle.X := 360*MotionSensor1.Sensor.accelerationX;
Dummy1.RotationAngle.Y := 360*MotionSensor1.Sensor.accelerationY;
Dummy1.RotationAngle.Z := 360*MotionSensor1.Sensor.accelerationZ;
end;

aber leider will das nicht so ganz..
Andere schreiben diesen code in den Motionsensor unter events in OnDataChanged aber dieses Ereignis gibt es bei mir nicht.. hat jemand eine Idee?