Handy - Wahl des Sensors

[Ydobon]

Ich habe kein S7, aber bei meinem Handy funktioniert der Code ohne Änderungen. Entweder hat Samsung gespart oder da ist etwas nicht so, wie es sein soll.
Was sagt das S7 denn dazu?

Delphi-Quellcode:

var sensenmann: TSensorManager;
    Sensor: TCustomSensor;
    max, i: Integer;
begin
  sensenmann:=TSensorManager.Current;
  sensenmann.Activate;
  max:=sensenmann.Count;
  for i:=0 to max-1 do
  begin
    Sensor:=Sensenmann.Sensors[i];
    Memo1.Lines.Add(GetEnumName(TypeInfo(TSensorCategory), Ord(Sensor.Category)));
    if Sensor.Category = TSensorCategory.Orientation then
       Memo1.Lines.Add('- '+GetEnumName(TypeInfo(TOrientationSensorType),
                       Ord(TCustomOrientationSensor(Sensor).SensorType)));
  end;
  sensenmann.Deactivate;
end;