Delphi-Sensoren-Motionsensor wie aktivieren?

[derseitzer]

Habe ein klein wenig selber die Lösung gefunden aber nur für mein Gyrometer. das hat mir immer nur 0 zurückgegeben und ich habe es mit dem Code siehe unten gelöst. Habe es noch nich mit tilt getestet und werde dieses wochenende auch leider nicht mehr dazukommen >.< vllt. wollt ihrs ja probieren Ich werde es auf jedenfall auch noch probieren

Code:

procedure TFormMain.Form3DCreate(Sender: TObject);
var
Sensormanager: TSensorManager;
Sensors: TSensorArray;
Sensor: TCustomSensor;
begin
//Sphere1.MaterialSource:= Menu.TextureMaterialSource1;
Sensormanager := TSensormanager.Current;
Sensormanager.Activate;
Sensors:= Sensormanager.GetSensorsByCategory(TSensorCategory.Motion);
for Sensor in Sensors do
  if TCustomMotionSensor(Sensor).SensorType = TMotionSensortype.Gyrometer3D then begin
  FSensor:=TCustomMotionsensor(Sensor);
  end;
FSensor.Start;
end;