Программа "Паззл": Не могу добиться прилипания панелей друг к другу

if (abs(Image1.left + Image1.Width - Image2.left) < 5)and(abs(Image1.Top - Image2.Top) < 5) then

var img:TImage;
const sensivity:Byte = 5; //если нужна меньшая чувствительность - то делаем больше и наоборот
begin
img := Sender; //Sender содержит в себе вызвавший событие компонент, т.е., картинку
if ComponentCount > 0 then
for i := 0 to ComponentCount - 1 do
 if (Components[i] is TImage)and(Components[i] <> Sender) then
 begin
 //проверка пристыковки справа
 if (abs(Components[i].Left + Components[i].width - img.Left) < sensivity)and
    (abs(Components[i].Top - img.Top) < sensivity) then
  begin
  img.left := Components[i].left + components[i].width;
  img.top := Components[i].top;
  end;
 //проверка пристыковки справа
 ...
 //проверка пристыковки сверху
 ...
 //проверка пристыковки снизу
 ...
 end;
end;

 procedure TForm1.Image40MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
 const  Sc_dragmove = $F012;
 begin
 ReleaseCapture;
 Panel40.Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
 end;

 procedure TForm1.Image40MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
 const  Sc_dragmove = $F012;
 begin
 ReleaseCapture;
 ((Sender as TImage).Parent as TPanel).Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
 end;

  TPuzzleNode = class(TPanel)
    private
      procedure MouseDown(Sender: TObject; Button: TMouseButton;
        Shift: TShiftState; X, Y: Integer);
    protected
    public
      Img:TImage;
      constructor Create(AOwner:TWinControl); //мы перекрываем стандартный конструктор, так будет удобнее
  end;
 
constructor TPuzzleNode.Create(AOwner: TWinControl);
begin
inherited Create(AOwner);
self.Parent := AOwner;
 
self.Img := TImage.Create(self); //в деструкторе можно не прописывать удаление TImage, так как наша панель является owner'ом для TImage и отвечает за его жизненный цикл.
self.Img.Parent := self;
self.Img.Align := alClient; //Картинка будет растягиваться на всю панель.
self.Img.OnMouseDown := self.MouseDown;
end;
 
procedure TPuzzleNode.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 const  Sc_dragmove = $F012;
 begin
 ReleaseCapture;
 self.Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
end;

Image1.Parent.DoubleBuffered:= True;

 var i: Integer;
 begin
 for i:=0 to ComponentCount-1 do
 if Components[i] is TWinControl then
 TWinControl(Components[i]).DoubleBuffered:=true;