Como evitar el bloqueo de pantalla y obtener el eje x positivo de TMotionSensor

[[kurono]]

obtener solo el eje x positivo del componente TMotionSensors lo solucione de la siguiente manera en un label obtengo los valores del componente

Código Delphi [-]
begin
  txt_velocidad.Text:=FloatToStr(StrToFloat(Format('%6.2f', [txt_km.Sensor.AccelerationX])) 
end;

luego con una simple comparacion determino cuando el valor es positivo

Código Delphi [-]
if StrToFloat(txt_velocidad.Text) > 0.0 then
 begin
  // codigo a ejecutar
 end;