Genel İşlemler - ProImage'i hareket ettirme

ProImage türünden bir değişkenim var. Bu değişkeni sürekli sağa hareket etmesini istiyorum. ImgBall.Position.X := ImgBall.Position.X - 15; kullandığımda topu hareket ettiremedim. Kenar sınır kontrolleri çalışmadı. Ne yapabilirim?

procedure Hareket;

begin

//ImgBall.Margins.Right := ImgBall.Margins.Right + 15;

ImgBall.Position.X := ImgBall.Position.X - 15;

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

begin

ImgBall.Position.X := 0;

end;

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;

end;