Перемещение TShape

[Furious_Angel]

Помогите, пожалуйста решить такую задачку в Borland C++ Builder.
Нужно переместить TShape(Shape1) по диагонали из одного угла TBevel в другой по нажатию на BitBtn, т.е. нажал и овал плавно перемещается.
Так же требуется регулировка скорости (TUpDown+TEdit).
Заранее благодарен.

[slips]

пишу на Delphi там думаю сам разберешься
при клике на кнопку

          Timer.Interval:=StrToInt(Edit.Text);
          Timer.Enabled:=true;

         var i:Integer
          iF Shape.left<Bevel.width-Shape.Width then 
             Shape.Left:=Shape.Left+1
          else
             Timer.Enabled:=fasle;

правда я не учел кромку Bevel

[slips]

второй код для OnTimerClick