Why won't the script kick the player?

I have a GUI, which purpose is to simply kick players, and a kick reason is included. The GUI also includes the names of in-game players on a list so I dont need to type out the player name in a text button.

The script will run perfectly in studio, will not error in-game, but still dosent work, can anyone help?

Normal Script in Screen GUI(Called RemoteFunctions):

local remote = script.Parent["Kicking Function"]

remote.OnServerInvoke = function(var) -- WHEN INVOKE RUN SCRIPT
	local players = game.Players:GetPlayers()
	for i = 1,#players do
		if var == players[i] then return var end
	end
end

Local Script in Screen GUI(Called Invoke[needed?]):

wait()
script.Parent.Script.RemoteFunction:InvokeServer()

Normal Script in GUI button(called Kicking script):

local remote = script.Parent.Parent.Parent["Kicking Function"]

script.TakeInfo.OnInvoke = function(var,Reason)
	local player = game.Players:GetChildren()
	for i,v in ipairs(player) do
		if var == v then
			v:Kick("You have been kicked for Reason: "..Reason)
		end
	end
end

Local script in GUI button(Called ListPlayers):

player = game.Players.LocalPlayer
Kick = script.Parent

Kick.MouseButton1Down:connect(function()
	local people = game.Players:GetChildren()
	for i,people in ipairs(people) do
		local newLine = Instance.new("TextButton", script.Parent.Parent)
		newLine.Text = people.Name
		newLine.Name = people.Character.Name
		newLine.BackgroundColor3 = script.Parent.BackgroundColor3
		newLine.TextColor3 = script.Parent.TextColor3
		newLine.Size = UDim2.new(0, 150,0, 50)
		newLine.Position = script.Parent.Position - UDim2.new(0,0,-i,-i)
		newLine.TextXAlignment = Enum.TextXAlignment.Center
		newLine.TextYAlignment = Enum.TextYAlignment.Center
		newLine.FontSize = Enum.FontSize.Size18
		newLine.Font = Enum.Font.SourceSans
		
	newLine.MouseButton1Down:connect(function()
		local ID = newLine.Name
		local KickReason = script.Parent.Parent.KickReason
		local Reason = script.Parent.Parent.KickReason.Text
		local verify = script.Parent.Parent.Parent["Kicking Function"]:InvokeServer(ID)
		if KickReason.Text == "Kick Reason" or KickReason.Text == "" then
			KickReason.BackgroundColor3 = Color3.new(255,0,0)
			wait(1)
			KickReason.BackgroundColor3 = newLine.BackgroundColor3
			else
		local Kick = script.Parent["Kicking script"].TakeInfo:Invoke(verify,Reason)
		end
	end)
	end
end)