Отображение графа. [Delphi]

[HoLToFF]

Доброго времени суток, нужна помощь в реализации изображения графа в среде разработки Delphi, граф можно задать матрицей смежности. Основная проблема заключается в том, чтобы именно красиво отобразить граф: нарисовать дуги и вершины.

[HoLToFF]

Имеется идея:
Построить окружность, разбить её на n частей, где n количество вершин графа, и соединить эти вершины дугами. Проблема только в том, как это реализовать.

[Sazary]

Вот вам пример.
На форму киньте TImage (растяните, чтобы напоминало квадрат) и кнопку.
Обработчик кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var
cntrx,cntry : integer;
R,rm : integer;
n,i : integer;
x,y : integer;
begin
Image1.Canvas.Brush.color := clWhite;
Image1.Canvas.FillRect(Canvas.ClipRect);
cntrx := round(Image1.Width/2);
cntry := round(Image1.Height/2);
R := round(cntrx/1.5);
rm := 10;
Image1.Canvas.Ellipse(cntrx-R,cntry-R,cntrx+R,cntry+R);

n := 8;
for i:=1 to n do
 begin
 x := round(cntrx+R*cos(i*2*pi/n));
 y := round(cntry+R*sin(i*2*pi/n));
 Image1.Canvas.Ellipse(x-rm,y-rm,x+rm,y+rm);

 end;

end;

[HoLToFF]

Изумительно! То, что нужно, спасибо