Фокусирование панели

[asp1k]

Нужна помощь с фокусированием

Такая проблема ...
При перемещении панели по экрану нужно чтобы остальные панели перемещались на передний план...
А то при перемещении некоторые части мозаики остаются на заднем плане.
Когда некоторое части уже встали на свое место...то те которые еще не встали на свое место на заднем плане остаются...
ниже выложил exeшник с игрой...
Вот код перемещения

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

 const
  SC_DragMove = $F012;  { a magic number }


begin
  ReleaseCapture;
  panel1.perform(WM_SysCommand, SC_DragMove, 0);

i:=panel1.Left;
i1:=panel1.Top;
i2:=i2+1;

if ((i>5)and(i<50)  and (i1>5) and (i1<50)) then
begin
 Panel1.Enabled:=false;
 Panel1.Left:=9;
 Panel1.Top:=9;
 Panel1.BevelInner:=bvNone;
 Panel1.BevelOuter:=bvNone;
 p1:=1;
end;

Label1.Caption:='Всего передвижений: '+IntToStr(i2);

end;

Всего 9 частей...