Dibujar sobre un heptágono regular sabiendo el rádio

[[RONPABLO]]

listo... hay veces que con solo preguntar como que todo se despeja dejo la solución:

Código Delphi [-]
procedure TForm1.PintarLineas(radio, CentroX, CentroY  : integer);
var i : integer;
   ang : double;
begin
  Image1.Canvas.Pen.Color := clRed;
  Image1.Canvas.Pen.Width := 1;

  for i := 1 to 8 do
  begin
     ang := i * (2 * pi) / 7;
     if i = 1 then
        Image1.Canvas.MoveTo(round(CentroX + (radio * cos(90 + ang))) ,round(CentroY + (radio * sin(90 + ang))))
     else
        Image1.Canvas.LineTo(round(CentroX + (radio * cos(90 + ang))) ,round(CentroY + (radio * sin(90 + ang))));
  end;
end;