[Hastle31]

проблема вот в чем: я динамически создаю Shape. мне необходимо создать процедуры ну что-то в роде shape.onclick. Много гуглил по данному вопросу, нашлось одно решение, но не без косяков. Shape создается при клике на Image. НИже основной код создания. В данном случае вылетает ошибка при вызове mas[kol_shape].OnMouseUp := ShapeClick; Если же поставить эту строку после вызова процедуры draw_shape в image1click то после создания Shape прцоедура выполнятсья будет, но есть один нюанс: у меня часть шейпов создаются "сами", загружая соответственные координаты left/top из БД. Так вот, при клике на Shape загруженный из БД реакции нет, а на поставленный "собственноручно" есть.
Есть у кого-нибудь идеи по решении данной проблемы?

Код:

mas: array of TShape;

procedure TForm1.ShapeClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 begin
 if sender is TShape then
 showmessage('test');
 end;

*****
// создание Shape
procedure draw_shape;
begin
  setlength(mas,kol_shape+1);

  mas[kol_shape] := TShape.Create(Form1);
  mas[kol_shape].Parent := Form1;
  mas[kol_shape].Left :=shape_setting[kol_shape].left;
  mas[kol_shape].Top := shape_setting[kol_shape].top;
  mas[kol_shape].Width := 10;
  mas[kol_shape].Height := 10;
  mas[kol_shape].Shape := stCircle;
  //mas[kol_shape].OnMouseUp := ShapeClick; <-error
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 set_shape;
 draw_shape;
 mas[kol_shape].OnMouseUp := ShapeClick;
 form2.show;
end;