Mouse - movendo componentes

var

  PosMouseX, PosMouseY   : Integer;

  BtPress                : Boolean;

procedure MouseDown

begin

  BtPress   := True;

  PosMouseX := X;

  PosMouseY := Y;

end;

procedure MouseMove

begin

  if not BtPress then Exit;

  // Move o label sendo arrastado para a posicao nova (relativa ao mouse)

  TLabel(Sender).Top := TLabel(Sender).Top  + Y - PosMouseY;

  TLabel(Sender).Left:= TLabel(Sender).Left + X - PosMouseX;

end;

procedure MouseUp

begin

  BtPress := False;

end;

---------------------------- MANEIRA MAIS SIMPLES --------------------------

// para mover um panel:

procedure TForm1.Panel1MouseDown

begin

 ReleaseCapture;

 TWinControl(Sender).perform(WM_SYSCOMMAND, $F012, 0);

end;