Авторизация на прокси через IdHTTP

[SLASH_CyberPunk]

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckProxy;
  PostString := TStringList.Create;
  PostString.Add('gid='+User.Login);
  PostString.Add('pass='+User.Password);
  HTML.All := IdHTTP1.Post(uri+'/?page=enter',PostString);
  PostString.Free;
end;

procedure TForm1.CheckProxy;
begin
  if Setting.UseProxy then
  begin
    IdHTTP1.ProxyParams.ProxyServer := Proxy.Server;
    IdHTTP1.ProxyParams.ProxyPort := Proxy.Port;
    if Setting.UseProxyAut then
    begin
      IdHTTP1.ProxyParams.BasicAuthentication := Setting.UseProxyAut;
      IdHTTP1.ProxyParams.ProxyUsername := Proxy.Login;
      IdHTTP1.ProxyParams.ProxyPassword := Proxy.Password;
    end
    else
    begin
      IdHTTP1.ProxyParams.BasicAuthentication := False;
      IdHTTP1.ProxyParams.ProxyUsername := '';
      IdHTTP1.ProxyParams.ProxyPassword := '';
    end;
  end
  else
  begin
    IdHTTP1.ProxyParams.ProxyServer := '';
    IdHTTP1.ProxyParams.ProxyPort := 0;
    IdHTTP1.ProxyParams.BasicAuthentication := False;
    IdHTTP1.ProxyParams.ProxyUsername := '';
    IdHTTP1.ProxyParams.ProxyPassword := '';
  end;
end;

Предисловие
Пытаюсь авторизоваться на своем HTTP-прокси, точно знаю, что авторизуюсь. Разобрался и с оптимизацией при компилирование, чтобы переменные заработали при повторном обращению в процедуру.

Суть вопроса: если первоначально коннектиться без авторизации - выходит ошибка 407 (что логично), когда же включаю авторизацию, то ошибка авторизации все равно появляется, хотя в переменные все приходит корректно, после перезапуска программа авторизуется нормально. Как можно решить данную проблему?

[SLASH_CyberPunk]

Решил проблему созданием компонента IdHTTP перед коннектом и в процедуру CheckProxy пришлось вписать полное объявление переменных для IdHTTP

  PostString := TStringList.Create;
  PostString.Add('gid='+User.Login);
  PostString.Add('pass='+User.Password);
  IdHTTP1 := TIdHTTP.Create(nil);
  CheckProxy;
  HTML.All := IdHTTP1.Post(uri+'/?page=enter',PostString);
  PostString.Free;