Bunu deneyin.

  MyForm:TclGameForm;

  ImgBall, ImgHole:TclProImage;

  DeviceMotionSensor:TClMotionSensor;

  LblDisplay:TclLabel;

  GameTimer:TClTimer;

  BtnStartGame:TclButton;

  SoundIndex:Integer;

  myDeviceManager:TclDeviceManager;

  HoleMin_X,HoleMax_X : Single; // Ball must be placed inside these coordinates

  HoleMin_Y,HoleMax_Y : Single;

  function isBallinTheHole: Boolean;

  var

    centX,CentY : Single;

  begin

    Result := False;

    centX := ImgBall.Position.X + (ImgBall.Width/2);

    centY := ImgBall.Position.Y + (ImgBall.Height/2);

    if (centX <= HoleMax_X) and (centX >= HoleMin_X) and

       (centY <= HoleMax_Y) and (centY >= HoleMin_Y) then

      Result := True;

  end;

  Procedure ProcOnGameTimer;

  Const 

    BallSpeed = 5;

  begin

    

    If Clomosy.PlatformIsMobile Then

    Begin

      Case DeviceMotionSensor.GetDirectionX of 

        1:ImgBall.Position.X := ImgBall.Position.X - BallSpeed;//Move left

        2:ImgBall.Position.X := ImgBall.Position.X + BallSpeed;//Move right

      End;

      Case DeviceMotionSensor.GetDirectionY of 

        1:ImgBall.Position.Y := ImgBall.Position.Y - BallSpeed;//Move up

        2:ImgBall.Position.Y := ImgBall.Position.Y + BallSpeed;//Move down

      End;

      if (ImgBall.Position.X + ImgBall.Width) > TForm(MyForm).ClientWidth then  // Form Right border control

        ImgBall.Position.X := TForm(MyForm).ClientWidth - ImgBall.Width;

    

      if (ImgBall.Position.X) < 0 then // Left border control

        ImgBall.Position.X := 0;

    

      if (ImgBall.Position.Y + ImgBall.Height) > TForm(MyForm).ClientHeight then  // Form Bottom border control

        ImgBall.Position.Y := TForm(MyForm).ClientHeight - ImgBall.Height;

    

      if (ImgBall.Position.Y < 0) then  // Top border control

        ImgBall.Position.Y := 0;

        

      if isBallinTheHole then

      begin

        GameTimer.Enabled := False;

        ImgBall.Position.X := HoleMin_X;

        ImgBall.Position.Y := HoleMin_Y;

        //ShowMessage(ImgBall.Position.X);

        If Clomosy.PlatformIsMobile Then DeviceMotionSensor.Active := False;//game stopped

        BtnStartGame.Text := 'START GAME';

        MyForm.PlayGameSound(SoundIndex);

        myDeviceManager.Vibrate(1000);

        ShowMessage('Tebrikler');

        //Buraya

      end;

        

    End;

  End

  Procedure BtnStartGameClick;

  begin

    GameTimer.Enabled := Not GameTimer.Enabled;

    If GameTimer.Enabled Then BtnStartGame.Text := 'STOP GAME' ELSE BtnStartGame.Text := 'START GAME';

    If GameTimer.Enabled Then

    Begin

      ImgBall.Align := alNone;

      ImgBall.Position.x := 0;

      ImgBall.Position.y := 0;

      If Clomosy.PlatformIsMobile Then DeviceMotionSensor.Active := True;

    End Else If Clomosy.PlatformIsMobile Then DeviceMotionSensor.Active := False;//game stopped

  End;

  

Begin

  //exit;

  MyForm := TclGameForm.Create(Self);

  myDeviceManager := TclDeviceManager.Create;

  MyForm.SetFormBGImage('https://i.hizliresim.com/hlu0bfg.jpeg');

  

  MyForm.AddGameAssetFromUrl('https://www.clomosy.com/game/assets/win.wav');

  SoundIndex := MyForm.RegisterSound('win.wav');

  MyForm.SoundIsActive:=True;

  

  LblDisplay:= MyForm.AddNewLabel(MyForm,'LblDisplay','--');

  LblDisplay.Align := alTop;

  LblDisplay.Visible := False;

  

  

  BtnStartGame:= MyForm.AddNewButton(MyForm,'BtnStartGame','START GAME');

  BtnStartGame.Align := alBottom;

  BtnStartGame.Height:=30;

  BtnStartGame.StyledSettings := ssFamily;

  BtnStartGame.TextSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  BtnStartGame.Margins.Bottom := 50;

  //BtnStartGame.Visible := False;

  MyForm.AddNewEvent(BtnStartGame,tbeOnClick,'BtnStartGameClick');

  

  

  ImgHole := MyForm.AddNewProImage(MyForm,'ImgHole');

  ImgHole.clSetImage('https://clomosy.com/educa/station.png');

  ImgHole.Margins.Top:=820;

  ImgHole.Margins.Bottom:=55;

  ImgHole.Properties.AutoSize := False;

  ImgBall := MyForm.AddNewProImage(MyForm,'ImgBall');

  ImgBall.clSetImage('https://i.hizliresim.com/sz38vc4.png');

  ImgBall.Width := 50;

  ImgBall.Height := 50;

  

  ImgBall.Align := alCenter;

  

  //ShowMessage(ImgBall.Position.Y);

  HoleMin_X := ImgBall.Position.X;

  HoleMax_X := HoleMin_X + ImgBall.Width; // Ball must be placed inside these coordinates

  

  HoleMin_Y := ImgBall.Position.Y+18;//LblDisplay.Visible true oldugunda orta nokta alınırken android de yanlış hesaplanıyor

  HoleMax_Y := HoleMin_Y + ImgBall.Height;

  ImgBall.Align := alNone;

  ImgBall.Position.Y := HoleMin_Y;

  //ShowMessage(ImgBall.Position.Y);

  //ShowMessage(HoleMin_Y);

  DeviceMotionSensor := MyForm.AddNewSensorsMotion(MyForm,'DeviceMotionSensor');

  GameTimer:= MyForm.AddNewTimer(MyForm,'GameTimer',1000);

  GameTimer.Interval := 30;//30 m.saniye aralıklarla 

  GameTimer.Enabled := False;

  MyForm.AddNewEvent(GameTimer,tbeOnTimer,'ProcOnGameTimer');

  

  MyForm.Run;

  

End;

Belki telefonunuz desteklemiyor olabilir.