Изменить родителя неизвестной книпке. Delphi

[FACE OFF]

При запуске формы, создается 66 Button и 66 GroupBox. Создаются через Create, потому что их количество пользователь может изменить.

Задача пользователя состоит в том, что бы переташить кнопки на groupbox'ы в правильном порядке.

При перетаскивании кнопки на groupbox в событии OnDragdrop мне необходио прописать, что бы кнопка меняла свойство parent c Form1 на GroupBox(x) (х - номер этого groupbox).

Просто написать Button1.Parent:=GroupBox1 я не могу потому, что не знаю какую именно кнопку и в какой именно groupbox переместит пользователь.

Подскажите, как можно написать что то примерно такое : Source.parent:=Sender;

Или как можно узнать имя кнопки, которую перетащили, и имя groupbox, на который перетащили?

Помогите, пожалуйста. Понимаю, все очень запутанно. Но такое задание дали на учебе. Срочно надо.

Заранее спасибо.

[fbus]

когда создаешь кнопки напиши что-то натипа

button.name:=inttostr(i);

а потом на все кнопки сделай общий обработчик который будет выполнять строчку

application.FindComponent...    .Parent:=......

вроде так

[FACE OFF]

Сообщение от fbus

когда создаешь кнопки напиши что-то натипа

button.name:=inttostr(i);

а потом на все кнопки сделай общий обработчик который будет выполнять строчку

application.FindComponent...    .Parent:=......

вроде так

Имена у них есть, я присвоил.

А можно пример такого кода. Как я понял, что то типа:
application.FindComponent('button1) .Parent:=groupbox1.

Но проблема в том, что я не знаю, какой номер будет у кнопки. Я пишу процедуру, которая потом присваивается всем полям при их создании.

[evg_m]

OnStartDrag event (TControl)

Occurs when the user begins to drag the control or an object it contains by left-clicking on the control and holding the mouse button down.

type TStartDragEvent = procedure (Sender: TObject; var DragObject: TDragObject) of object;

[FACE OFF]

Сообщение от evg_m

OnStartDrag event (TControl)

Occurs when the user begins to drag the control or an object it contains by left-clicking on the control and holding the mouse button down.

type TStartDragEvent = procedure (Sender: TObject; var DragObject: TDragObject) of object;

Что то я ничего не понял...

[WhiteSpirit]

В обработчике события OnEndDrag кнопки пишешь:

if Target = nil then Exit;
if Target is TGroupBox then TButton(Sender).Parent:=TGroupBox(Target);

В обработчике OnDragOver GroupBox' а

Accept:=(Source is TButton);

[FACE OFF]

Спасибо огромное. Все получилось. Вы мне очень помогли.