Delphi.Игра, с использованием протокола Drag&Drop

[Zонька]

Необходимо реализовать игру: На панели находятся N лунок, число которых вводит пользователь. В лунках - шары белого или черного цвета. Цель игры - сначала идут белые шары, затем черные. Для победы в игре нужно сделать не больше n/2 ходов.
Создаю лунки динамически, в списке компонентов их нет. Вот код

procedure TForm1.FormCreate(Sender: TObject);
var i,j: integer;
begin
  for i:= 1 to N do
  begin
    figura[i] := TShape.Create(Form1);
    figura[i].Parent := Panel1;    {создаются на панели}
    figura[i].Height:= 35;       
    figura[i].Left := 650-40*i; {положение на панели}
    figura[i].Top := 53;    
    figura[i].Brush.Color:=clwhite;
    figura[i].Shape:=stCircle;
    figura[i].Enabled:=False;
    figura[i].DragMode := dmAutomatic;   {можно перемещать}
  end;
    end;

Потом сделала рандомное окрашивание в черный или белый цвет.
Проблема: Не знаю, как теперь обратиться к компонентам Shape, чтобы их менять местами (применить процедуры dragover и dragdrop).
Заранее спасибо за любую помощь!

[Stilet]

Допиши:

figura[i].OnDragDrop:=FigaDragDrop;

Где процедура

procedure TForm1.FigaDragDrop(Sender, Source: TObject; X, Y: Integer);

begin
 Sender указывает на драганутый Shape
end;

Идея понятна? Назначить обработчик для всех шейпов, а в обработчике проверять какой шейп его вызвал.

[Zонька]

Пока не получается это сделать, буду пытаться) Спасибо!

[Zонька]

Задачу решила. Больше помощь не требуется.