[ecfisa]

Hola RONPABLO.

Me alegro que le dieras solución, yo estuve intentando con algo así:

Código Delphi [-]
procedure DibujarHep(const Frm: TForm; const Centro:TPoint; const Radio: Integer);
var
  P: array[1..6] of TPoint;
  Ang, i: Integer;
begin
  Ang:= 0;
  for i:= 1 to 6 do
  begin
    P[i].X:= Centro.X + Round(Radio * Cos(Ang));
    P[i].Y:= Centro.Y + Round(Radio * Sin(Ang));
    Inc(Ang, 45);
  end;
  Frm.Canvas.Polygon(P);
end;

Pero me parece más sencillo tu código

Saludos.