procedure THIProxy.SetAuthorization;
begin
   if value then
     Proxy.OnIsAuth := _OnIsAuth;
end;

procedure THIProxy._OnHost;
begin
   _hi_onEvent(_event_onURL, host);
end;

function THIProxy._OnIsAuth;
var i:integer;
    ua:PArray; ind,dt:TData;
begin
    Result := false;
    ua := ReadArray(_data_UserArray);
    if ua <> nil then
        for i := 0 to ua._Count-1 do
          begin
            dtInteger(ind, i);
            if ua._Get(ind,dt) and(ToString(dt) = LoginPass) then
              begin
                Result := True;
                break;
              end;
          end;
end;