TCheckBox og FindComponent

Jeg har lavet et program hvor brugerne skal have individuel adgang til programmets funktioner.
For at kunne styre dette, har jeg laver en form (Form92) med 60 CheckBoxes, en CheckBox for hver funktion.
Jeg søger på brugeren i bruger tabellen, og krydser af i de respektive CheckBoxes, og gemmer. Jeg kan se i tabellen, ved hjælp af Database Desktop, at dataene bliver gemt korrekt. På et tidspunkt skal en bruger have ændret i sine beføjelser, så søger jeg igen i bruger tabellen, så vises de foreløbige rettigheder i de respektive CheckBoxes, eller det vil sige, at det skulle de, for her går det galt.
I linien med -> genererer programmet en access violation at address ..., når jeg kører i debug mode kan jeg se at det er i denne linie det går galt.
Jeg har forsøgt at tilføje en label (Label5) til formen, og så tilføje en linie før den med pilen, hvor der står: "Label5.Caption := BoxNr". der står der det fineste tretal.
I routinen "TForm92.Fyld" bruges den nøjagtige samme linie, men der virker det fint.
Hvad gør jeg galt.

procedure TForm92.Fyld(S: Boolean);
var
  X: Integer;
begin
  for X := 1 to 60 do  // Der er 60 checkboxes.
  begin
    TCheckBox(FindComponent('CheckBox' + IntToStr(X))).Checked := S;
  end;
end;

procedure TForm92.FyldBruger(B: LongInt);
var
  BoxNr: String;
begin
  if B = 1 then
  begin  // Administrator.
    Opdater.Enabled := False;
    Fyld(True);
  end
  else
  begin  // Alle andre.
    Opdater.Enabled := True;
    Fyld(False);  // Tøm først alle flueben.
    with Global.Adgang.DataSet do
    begin
      Refresh;
      Global.TAdgang.IndexName := 'AdgangBruger';
      Global.TAdgang.FindNearest([IntToStr(B)]);
      while (not EOF) and
            (FieldByName('Bruger').AsInteger = B) do
      begin  // Sæt derefter flueben i de rigtige felter.
        BoxNr := IntToStr(FieldByName('Rettighed').AsInteger);
->      TCheckBox(FindComponent('CheckBox' + BoxNr)).Checked := True;
        Next;
      end;
    end;
  end;
end;