Как в Delphi нарисовать окружность на канве???
Обычным уравнением x^2+y^2=R^2, ничего не получается.
alpha := alpha + b;
x:=200 + Round(Cos(alpha) * r);
y:=200 + Round(Sin(alpha) * r);
phi := 0;
while phi < 2 * pi do
begin
X := center_x + trunc(r * cos(phi));
Y := center_y - trunc(r * sin(phi));
// рисуешь на канве точку с координатами X, Y
phi := phi + delta_phi; { <--- приращение угла подберешь сам }
end;