Движение шарика

[Stradivarius]

Подскажите, как написать программу движения окружности вот по такой траектории:
Окружность.JPG

[noxin]

x := 200;
y := 200;
Ellipse(x,y,x+50,y+50);
while y>=0 do
begin
  delay(100);
  dec(x,10);
  Ellipse(x,y,x+50,y+50);
end;
while x<=400 do
begin
  delay(100);
  inc(x,10);
  inc(y,100);
  Ellipse(x,y,x+50,y+50);
end;
while x>=0 do
begin
  delay(100);
  dec(x,10);
  Ellipse(x,y,x+50,y+50);
end;
while y<=200 do
begin
  delay(100);
  inc(y,10);
  Ellipse(x,y,x+50,y+50);
end;

Вот как то так