Erro de Exceção

procedure TFrmPerfil.FlatButton1Click(Sender: TObject);
var i: integer;
begin
  Dm.Perfis_Conf.Open;
  If Dm.Perfis_Conf.RecordCount=0 then
    for i:=0 to FrmPrincipal.ComponentCount-1 do
      if FrmPrincipal.Components[i] is TAction then
        Begin
          dm.Perfis_Conf.Insert;
          Dm.Perfis_ConfPERFIL.Value:=´teste´;
          dm.Perfis_ConfACAO.Value:=TAction(FrmPrincipal.Components[i]).Caption;
          Dm.Perfis_ConfACAO_NOME.Value:=taction(FrmPrincipal.Components[i]).Name;
          dm.Perfis_ConfPERMISSAO.Value:=´N´;
          Dm.Perfis_Conf.ApplyUpdates(0);
        end;
    Dm.Perfis_Conf.Close;
    FrmPermissaoUsuario.Show;
end;