Delphi 7 СПУ

[Kristoffer]

Я с другом пишу программу которая считает сетевые графы, в данный момент не можем реализовать привязку стрелки к массиву содержащему Image

прорисовка стрелки

procedure TForm1.arrow_paint(X1, Y1,x2,y2: Integer);
var
u,a,l,xn,yn,xv,yv:double;
begin
  u:=ArcTanVit(x2-x1,y2-y1);
  a:=pi/6;
  L:=10;
  xn:=x2+l*cos(u+pi+a);
  yn:=Y2+l*sin(u+pi+a);
  xv:=x2+l*cos(u+pi-a);
  yv:=y2+l*sin(u+pi-a);
  self.Canvas.Pen.Color:=clBlack;
  self.Canvas.MoveTo(x1,y1);
  self.Canvas.lineto(x2,y2);
  self.Canvas.lineto(Round(xn),Round(yn));
  self.Canvas.MoveTo(x2,y2);
  self.Canvas.lineto(Round(xv),Round(yv));
end;

прорисовка стрелки начинается с нажатия кнопки на форме

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case self.fCreateLinc of
    0:begin
      exit; // анализ перетаскивания задачи
    end;
    1:begin
       self.Canvas.MoveTo(x,y);              // запомтиь координаты
       self.fCreateLinc:=2;
       x1:=x;
       y1:=y;
      end;
    2:begin
       x2:=x;
       Y2:=y;
       self.arrow_paint(x1,y1,x2,y2); // вызвать процедуру рисования стрелки
       self.fCreateLinc:=0;
       self.ToolButton1.Down:=false;
       cursor:=crDefault;
     end;
     end;
end;

проверка указан ли Image

function check(Sender: TObject): integer;
var
   img:timage;
   i:integer;
   count:integer;
begin
   img:=Timage(sender);
   for i:=1 to count-1 do
   begin
   if img=image[i]
   then
   exit
   else
   exit;
   end;
end;

надо заменить Exit на привязку к Image на форме
если у кого то есть мысли на этот счет прошу Вас отписаться...