Перемещение компонента по форме

[Janger]

В общем, у меня такая проблема появилась, не знаю как её решить...
Есть GroupBox, его можно по форме двигать. Вот код

procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  TControl(sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;

Я хочу сделать так, что бы, я постоянно отлавливал GroupBox1.Top
Что бы, если это значение будет меньше 5 пикселей, сработал следующий код

GroupBox1.Align := alTop;

Но у меня ничего не выходит Не могу отлавливать Top во время перемещения компонента по форме ....
Подскажите пожалуйста ... Только не предлагайте использовать таймер

[Janger]

решил проблему - Ля

[Dvoishnik]

procedure TForm1.FormPaint(Sender: TObject);
begin
Edit1.text:=intToStr(GroupBox1.Top);
end;

[phomm]

Судя по строчке GroupBox1.Align := alTop; Вы пытаетесь сделать Drag&DOCK (! не дроп), а это уже есть как стандартный механизм - почитайте любую статью по драгндоку в дельфи.