Checkboxen mit gleichem Boolean-Wert zählen

[Tumm]

Hi

Ich hab das so angewendet:

Delphi-Quellcode:

while c3 < 29 do begin
Inc(c3);
if TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Checked = true then begin
if durckm.ItemIndex = 1 then
a.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgeben!') else
Memo1.Lines.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgegeben!');
end else begin
if durckm.ItemIndex = 1 then
na.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat nicht abgegeben!');
Memo1.Lines.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgegeben!');
end;
end;

c3 = Integer, a = Tstrings, na = Tstrings, Memo1 = Memo

Aber es geht nich! (Zugriffsverletzung)