Пипец..Ты зациклил 2 метода, в первом вызываешь второй, во втором первый, и т.д.. еще удивляешься почему возвращается "код певрого ответа"
Get - функция, она возвращает result.
Далее если ответ 302 то ты вызываешь процедуру Redirect и ей передаешь resault.
Процедура по определению ничего не возвращает, и с result ничего не делает, потому что:
1. Ты в процедуре не оперируешь параметром AData
2. Даже если бы захотел оперировать, то значение все равно бы не изменилось, ибо: const AData
// Если сервер сказал 302, переходим по сказанной локации
If Pos('302', Result) <> 0 then
begin
Redirect(Result, Host);
end;
Переходить то ты переходишь, но с какого х** result должна измениться если ты в этой функции с ней ничего больше не делаешь?
PS Мораль такова: вызываемая подпрограмма не может изменять результат той подпрограммы в которой она была вызвана, за исключением способа передачи по ссылке(var)