Перетаскиавние формы за динамически созданный компонент

[MyIE]

// функция двиганья формы за компонент
procedure TFormMain.Dvigalka(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  sc_dragmove = $F012;
begin
  releasecapture;
  FormDinamic.Perform(wm_syscommand, sc_dragmove, 0);
end;

...

procedure TFormMain.ButtonSaveNewWindowClick(Sender: TObject);
var
  GeneralImage: TImage;
begin
    GeneralImage := TImage.Create(Application);
    GeneralImage.OnMouseDown := Dvigalka; // функция, которая позволяет двигать форму, с помощью компонента, созданного не в ран-тайме
    GeneralImage.Picture.LoadFromFile(EditImagePath.Text); // грузим картинку из файла
    GeneralImage.Parent := DinamicForms[ForsIndex]; // создаем изображение, на только что созданной форме
    GeneralImage.Cursor := crSizeAll;
end;

ВОПРОС: как сделать так, чтобы можно было перетаскивать форму, за динамически созданный компонент?

[MyIE]

Вот я лопухнулся тему можно закрывать, если нет других вопросов по ней.
Ответ:

procedure TFormMain.Dvigalka(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  sc_dragmove = $F012;
begin
  releasecapture;
  DinamicForms[ForsIndex].Perform(wm_syscommand, sc_dragmove, 0); //тупо была указана неверно форма
end;