Fórum Intra Web erro ComponentCount #417595

o código abaixo faz parte faz parte de uma tela de login, o meu problema é com TFPrincipal.ComponentCount -1 do da erro no ComponentCount o erro que aparece é esse ([DCC Error] Ulogin.pas(59): E2233 Property ComponentCount inaccessible here).

Estou utilizando o intraweb do no Delphi2010. de já agradeço.

INICIO DE CÓDIGO:

procedure TFLogin.BtnOKClick(Sender: TObject);
var I: integer;
NOME: string;
begin
UserSession.Usuarios.Open;
if UserSession.Usuarios.Locate(LOGIN,EdtLogin.Text,[]) then
begin
if UserSession.UsuariosSENHA.Value=EdtSenha.Text then
begin
NOME := UserSession.UsuariosNOME.value;
WebApplication.ShowMessage(Tenha um bom trabalho, +NOME);
UserSession.perfis.Open;
UserSession.perfis_conf.Open;
UserSession.perfis.Locate(PERFIL,UserSession.UsuariosPERFIL.Value,[]);
for i := 0 to TFPrincipal.ComponentCount -1 do

if TFPrincipal.Components[i] is TAction then
begin
if UserSession.perfis_conf.Locate(ACTION_NAME,TAction(TFPrincipal.Components[i]).NAME,[]) then
begin
if UserSession.perfis_confPERMISSAO.Value=N then
TAction(TFPrincipal.Components[i]).Enabled := False
else
TAction(TFPrincipal.Components[i]).visible := True;
end
else
TAction(TFPrincipal.Components[i]).Enabled := False;
entrada := 1;
UserSession.Usuarios.Close;
TFPRINCIPAL.create(webapplication).show;
// Close;
end;
UserSession.perfis.Close;
UserSession.perfis_conf.Close;
end
else
begin
Messages(Senha inválida,Aviso,MB_ICONINFORMATION);
EdtSenha.SetFocus;
end;
end
else
begin
Application.MessageBox(Usuário inexistente,Aviso,MB_ICONINFORMATION);
EdtLogin.SetFocus;
end;
UserSession.usuarios.Close;

FIM DO CODIGO.