[AND_REY]

Вот так у меня работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 a, t: Real;
 x, y: Integer;
begin
 a:= 360/StrToInt(Edit1.Text);
 ShowMessage(FloatToStr(a*StrToInt(Edit2.Text)));
 t:= -180;
While t <= 180 Do
  begin
   Form1.Canvas.MoveTo(200, 200);
   t:= t + a;
   x := Round(200 + 150 * Sin(pi/180*t));
   y := Round(200 + 150 * Cos(pi/180*t));
   Form1.Canvas.LineTo(x, y);
  end;
end;