построение вершин(графы)

[adikxz]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
ColorDialog1: TColorDialog;
Image1: TImage;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
count:integer=0;
pointmassiv:array of TPoint;
r:integer=20;
s:array of array of integer;
v:array of array of integer;
centr:array of TPoint;
implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

begin
ColorDialog1.Color:=clBlue;
Image1.Canvas.Brush.color:=form1.co lordialog1.color;
Image1.Canvas.Ellipse((x-r),(y-r),(x+r),(y+r));
Image1.Canvas.Textout(x-4,y-6,inttostr(count));
inc(count);
SetLength(pointmassiv,count);
SetLength(s,count,count);
SetLength(centr,count);
setlength(v,count,count);
pointmassiv[count-1].x:=x;
pointmassiv[count-1].y:=y;
centr[count-1].X:=x-4;
centr[count-1].x:=y-6;

end;
procedure TForm1.Button1Click(Sender: TObject);
var kol,i:integer;
begin
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.FloodFill(50,50,clPur ple,fsBorder);
Image1.Canvas.Brush.Color:=clBlack;


Randomize;
kol:=StrToInt(form1.edit1.text);
for i:=1 to kol do

Image1MouseDown(Sender,mbLeft,[ssLeft],50+random(Image1.Width-100),50+random(Image1.Height-100));

end;

end.


Программа рисует круги(вершины) к которым потом будут проведены узлы и тем самым построены графы, как сделать так что бы круги НЕ появлялись впритык, было какое то минимальное ограничение.