[chainik]

Код:

var
R,              
X0,Y0:integer;  
Fi:extended;

procedure TForm1.SpinEdit1Change(Sender: TObject);
var
i:integer;
begin
R:=100;
Y0:=Image1.Height div 2;
X0:=Image1.Width div 2;
with Image1.Canvas do
    begin
    Ellipse(X0-R, Y0-R, X0+R, Y0+R);
    MoveTo(X0,Y0);LineTo(X0+R,Y0);
    for i:=0 to SpinEdit1.Value-1 do
        begin
        Fi:=2*Pi*i/SpinEdit1.Value;
        MoveTo(X0,Y0);LineTo(X0+round(R*cos(Fi)),Y0-round(R*sin(Fi)));
        end;
    end;

end;