var

myform:TclForm;

timer1:TCLTimer;

img1:TCLImage;

DeviceMotionSensor:TclMotionSensor;

void GameLoop;

const

BallSpeed=5;{

  if(Clomosy.PlatformIsMobile){

    case DeviceMotionSensor.GetDirectionX of {

      1:img1.Position.X=img1.Position.X - Ballspeed;

      2:img1.Position.X=img1.Position.X + Ballspeed;}

    case DeviceMotionSensor.GetDirectionY of {

      1:img1.Position.Y=img1.Position.Y-Ballspeed;

      2:img1.Position.Y=img1.Position.Y+Ballspeed; }}}

{ myform=TclForm.Create(Self);

  myform.SetFormBGImage(' https://e7.pngegg.com/pngimages/428/453/png-clipart-blue-triangular-border-blue-wave-border-texture.png" rel="nofollow - https://e7.pngegg.com/pngimages/428/453/png-clipart-blue-triangular-border-blue-wave-border-texture.png ');

   img1=myform.AddNewImage(myform, 'img1');

   img1.ALign=alCenter;

   img1.Align=alNone;

   img1.width=200;

   img1.height=200;

   myform.SetImage(img1,' https://img.freepik.com/premium-psd/balloon-isolated-transparent-background-png_699917-812.jpg?semt=ais_hybrid" rel="nofollow - https://img.freepik.com/premium-psd/balloon-isolated-transparent-background-png_699917-812.jpg?semt=ais_hybrid '); 

   timer1=myform.AddNewTimer(MyForm,'timer1', 1000);

   timer1.Interval=30;

   timer1.Enabled=True;

   myform.AddNewEvent(timer1,tbeOnClick,'GameLoop');

   DeviceMotionSensor=myform.AddnewSensorsMotion(myform,'DeviceMotionSensor');

   DeviceMotionSensor.Active=True;

   myform.Run; }

sensor ile yaptığım uygulamada (Telefon hareketlerine göre hareket eden balonlar) mobilden girdiğimde hata almıyorum fakat çalışmıyor da. Şimdiden teşekkür ederim.