This part dragging script stays in one position only?

So this part moving script works completely, but if I try to move then it still stays in the same position.

Mouse = game.Players.LocalPlayer:GetMouse()
Mouse.TargetFilter = workspace.Part
workspace.Part.BodyPosition.MaxForce = Vector3.new(math.huge, math.huge, math.huge)
Mouse.Move:connect(function()
    char = game.Players.LocalPlayer.Character
    local object = workspace.Part
    local Ray = Ray.new(char["Left Arm"].Position, Mouse.Hit.p.unit * 10)
    print(Ray)  
    object.BodyPosition.Position = Ray.Direction
end)