[kaizer131]

Подскажите как реализовать перетаскивание мышью динамически созданных объектов?
есть процедура, нормально осуществляющая перетаскивание статично созданного объекта

Код:

procedure Tfrm_Main.drag_Terminal;
const
  SC_DragMove = $F012;
begin
  begin
  ReleaseCapture;
  Panel1.Perform(WM_SysCommand, SC_DragMove, 0);
  end;
end;

но она отказывается навешиваться на динамические объекты

Код:

gr_Term.OnMouseDown:=drag_Terminal(self);

Вопрос 1
Почему, в этой строке возникает ошибка
[DCC Error] main.pas(97): E2010 Incompatible types: 'TMouseEvent' and 'procedure, untyped pointer or untyped parameter'

Вопрос 2
Как в строке

Код:

 Panel1.Perform(WM_SysCommand, SC_DragMove, 0);

отправить сообщение о переносе именно тому объекту на котором была нажата левая кнопка мыши?