Перемещение мышью динамического TEdit в runtime

[singularity.storm]

Есть класс-потомок от TEdit:

TMyEdit = class(TEdit)
private

public
constructor Create(AOwner : TComponent); override;
end;

И вот инициализация его конструктора:

constructor TMyEdit.Create(AOwner: TComponent);
begin
inherited;
Parent := Form1;
Left := Mouse.CursorPos.X - Form1.Left;
Top := Mouse.CursorPos.Y - Form1.Top - Form1.Image1.Top;
PopupMenu := Form1.pm1;
end;

И сам вопрос: подскажите, плиз, что сделать, чтобы организовать перемещение такого Эдита мышью в режиме RunTime. Заранее очень признателен за ответы.

[HyperZen]

http://www.delphisources.ru/pages/fa...rtti_life.html