Подпись ребер графа

procedure DrawArrow(Canvas: TCanvas; X1,Y1,X2,Y2, r: Integer);
//стрелка для графа
var
 dx, dy: Integer;
 a: Real;
 
begin
 if X2 - X1 = 0 then
    if Y2 - Y1 > 0 then
      a := +pi / 2
    else
      a := -pi / 2
 else
    a := ArcTan((Y2- Y1)/(X2 - X1));
 
  if X2 - X1 < 0 then
    a := a + pi;
 
  dX := Round(R * cos(a));
  dY := Round(R * sin(a));
 
  Canvas.MoveTo(X1 + dX, Y1 + dY);
  X1 := X2 - dX;
  Y1 := Y2 - dY;
  Canvas.LineTo(X1, Y1);
 
  Canvas.Polygon([Point(X1, Y1),
                  Point(X1 - Round(12*cos(a + pi/11)), Y1 - Round(12*sin(a + pi/11))),
                  Point(X1 - Round(12*cos(a - pi/11)), Y1 - Round(12*sin(a - pi/11)))]);
 
  Canvas.MoveTo(X2, Y2);
  sleep(500);
  Application.processmessages;
end;
 
 
procedure grafv(n:Integer;x,y:massive; r : integer);
//Рисование графа
var
  i:Integer;
  x1, y1, x2, y2, h: integer;
begin
 if doingf.rg1.itemindex = 0 then
 begin
  with  tablf.Img1 do
  begin
   canvas.Font.Height:= 15;
   h:= canvas.Font.Height;
   canvas.Font.Color:=clblue;
   for i:=0 to n-1 do
   begin
    x1:= x[i]-r;
    y1:= y[i]-r;
 
    x2:= x[i]+r;
    y2:= y[i]+r;
    canvas.pen.Color:= clblack;
    canvas.Pen.Width:= 2;
    canvas.pie(x1, y1, x2, y2, x1+r, y1, x1, y1+r);
    canvas.pie(x1, y1, x2, y2, x1, y1+r, x2-r, y2);
    canvas.pie(x1, y1, x2, y2, x2-r, y2, x2, y2-r);
    canvas.pie(x1, y1, x2, y2, x2, y2-r, x1+r, y1);
    sleep(500);
    Application.processmessages;
 
 
    if i<n then
    begin
     Canvas.TextOut(x[i]+3,y[i]-h-1,inttostr(max1[i]));
     Canvas.TextOut(x[i]-h,y[i]+1,inttostr(min1[i]));
     canvas.TextOut(x[i]-h+1,y[i]-h-1,inttostr(i+1));
     canvas.TextOut(x[i]+2, y[i]+2, IntToStr((min1[i]- max1[i])));
    end
    else
     canvas.TextOut(x[i]-h+1,y[i]-h-1,inttostr(1));
   end;
  end;
 end;
 
 
 
procedure graf;
//Рисование графа
var
  i, j, k, l, n, r:Integer;
  xr,yr:real;
  x,y:massive;
begin
  n:= Length(matr);
  r:= 30;
  with Tablf.Img1 do
  begin
   Picture:=nil;
   //Canvas.Pen.Width:=2;
   Canvas.Pen.color:= clblack;
 
   canvas.Font.Color:= clblack;
    SetLength(x,n);
    SetLength(y,n);
   for i:=0 to n-1 do
   begin
 
    //делим всю область на многоугольник и в вершинах будут находится вершины графа
     xr:=260+251*cos(2*pi*i/n);
     yr:=349+330*sin(2*pi*i/n);
     x[i]:=trunc(xr)+ 80;
     y[i]:=trunc(yr*0.8)+20;
   end;
//поиск первой вершины и продолжения ребер
     for j:=0 to n-1 do
      begin
       for i:=0 to n-1 do
        if matr[i,j] <> 0 then
        //begin  //первая вершина
         if ((min1[i] - max1[i]) = 0)  then
         begin
          canvas.Pen.Width:=5;
          canvas.Pen.Color:= clred;
          DrawArrow(Canvas,x[i],y[i],x[j],y[j], r);
         end
         else
         begin
           canvas.Pen.Width:=2;
           DrawArrow(Canvas,x[i],y[i],x[j],y[j], r);
         end;
       grafv(n,x,y, r);
      end;
 
end;
end;
 
 
 
procedure TTablF.N3Click(Sender: TObject);
begin
 graf;
end;