Движение фигуры по окружности

[&RiU]

КАК ЗДЕЛАТЬ ЧТОБЫ Shape1 ДВИГАЛАСЬ ПО ОКРУЖНОСТИ???
Жолтый круг - Shape1
Зелёный круг - Shape2

Помогите help PLEASE!!!!!!!!!!!!!!!

[Stilet]

А в чем проблема? Синусами косинусами рассчитывай очередную точку окружности и в ее координатах рисуй круг.

Тут примеры были - рули поиском.

[virtaanen]

Доброго времени суток товарищи программисты! Хотелось бы узнать ваше мнение по следующему вопросу.
Необходимо двигать шарик по окружности радиуса r c центром в точке O(x;y). Начальное положение шарика и направление сдвига показано на рисунке 1.
Параметры окружности:
радиус =125
центр окружности: (200;150)
Вот мой код, осуществляющий сдвиг:

    а:=StrToInt(Edit1.Text);
    x:=round(125*cos(a/57)+200);
    y:=round(125*sin(a/57)+150);
    Form1.Canvas.Ellipse(x,y,x+10,y+10);

(за формулы отдельное спасибо товарищу theos'y)
Однако таким образом шарик сдвигается непонятно относительно какого положения и непонятно в какую сторону(рисунок 2). Как можно сделать таким образом, чтобы он перемещался относительно своего начального положения именно в направлении сдвига, указанном на картинке.
Исправил правда теперь вообще не рисует кружок(по моему в радиане 57 градусов, поэтому чтобы получить число радианов надо градусы разделить на 57).

[Вавел из ГМТУ]

В функции sin, cos и пр. в качестве аргумента нужно подставлять угол в радианах. А Вы в градусах, наверное, подставляете....