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');

   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'); 

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

   timer1.Interval=30;

   timer1.Enabled=True;

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

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

   DeviceMotionSensor.Active=True;

   myform.Run; 

  

}