Problem mit Code, seit Komponente zur Laufzeit erstellt werd

[luckybug83]

Hallo,

vielleicht wisst ihr ja wo der Fehler ist

Seit dem ich mein Checkboxarray zur Laufzeit erstellen lasse, funktioniert folgender Code nur noch halb!Also wenn ich die Checkbox anhake wird meine Caption nach wie vor rot aber nicht mehr fett geschrieben!! Vor der dynamischen Erstellung hat beides funktioniert!?!

Danke schonmal im Voraus!

Delphi-Quellcode:

[b]//[/b]Checkbox BracketOpen
  Setlength(BracketOpen, zaehler+1);
  BracketOpen[zaehler]:= TCheckBox.Create(self);
  BracketOpen[zaehler].Name:= 'CBBracketOpen'+InttoStr(zaehler+1);
  BracketOpen[zaehler].Parent:= GroupBoxesItem[zaehler];
  BracketOpen[zaehler].Left:= 0;
  BracketOpen[zaehler].Top:= -4;
  BracketOpen[zaehler].Width:=30;
  BracketOpen[zaehler].Height:=22;
  BracketOpen[zaehler].Caption:='(';
  BracketOpen[zaehler].Font.Bold:=false;
  BracketOpen[zaehler].OnChange:=@CheckboxSettingsChange;

Delphi-Quellcode:

procedure TForm1.CheckBoxSettingsChange(Sender: TObject);
  var i:Integer;
begin
   i:=0;
    while i < High(BracketOpen) do begin
    if BracketOpen[i] = Sender then
      Break;
      inc(i);
    end;
    if BracketOpen[i] = Sender then
    begin
      if (BracketOpen[i].Checked=true) then
      begin
      BracketOpen[i].Font.Color:=clRed;
      BracketOpen[i].Font.Bold:=true;
      end
      else if (BracketOpen[i].Checked=false)then
      begin
      BracketOpen[i].Font.Color:=clBlack;
      BracketOpen[i].Font.Bold:=false;
      end;
   end;