Отображение графа в Delphi

[химик-кун]

Есть задача: нарисовать граф в image/paintbox вершины выбираются путём тыкания на экран. Вершины должны быть пронумерованы и не должны накладываться друг на друга. Пользуясь конспектом дописал до момента рисования, не наложения и нумеровки вершин, но работать оно отказываетьса+ хотелось бы услышать советы по тому как нарисовать ребра.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    image: TImage;
    procedure mouseup(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);


  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Form1: TForm1;
  y,x:Integer;
implementation

{$R *.dfm}
procedure TForm1.mouseup(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  const
    max=100;
    var form1:tform1;
    coord:array[1..max] of Tpoint;
    n:Byte;
function check(x,y:Integer;len:integer):Byte;
var
i:Byte;
begin
 check:=0;
 for i:=1 to n do
 begin
   if sqr(coord[i].x-x)+sqr(coord[i].y-y)<=Sqr(len)
   then check:=i;
 end;
end;
begin
 if check(x,y)=0 then
 begin
 Inc(n);
 image.Canvas.Brush.Color:=clRed;
 image.canvas.Ellipse(x-15,y-15,x+15,y+15);
 image.canvas.TextOut(x,y,IntToStr(n));
 end;

end;

end.

P.S. прошу прошения за опечатку не грава а графа

[Virtson]

химик-кун, в Delphi имеется тип
TPoint: record X, Y: integer; end;
Вам нужно завести массив из таких элементов, и добавлять точки при клике 'на экран'.
выводить вершины в виде Ellipse будете в цикле.

Для хранения связей нужна либо Матрица смежности, либо список собственно связей (пар номеров вершин).

[phomm]

http://programmersforum.ru/showthread.php?t=214365
Учитесь искать.