定義變量
I:整數；
Str:字符串；
開始
str:=“”；
對於i:=0到RzCheckGroup1。Items.Count-1 do
開始
如果RzCheckGroup1。ItemChecked[i]
str:=str+RzCheckGroup1。items . Strings[I]；
結束；
show message(str)；
結束；
如果妳不用raize，
然後依次定義checkbox的名稱為checkbox 1 checkbox 2 checkbox 3 checkbox 4。
定義變量
I:整數；
Str:字符串；
開始
str:=“”；
for i:=1到4 do
開始
if TCheckBox(find component(' checkBox '+inttostr(I)))。檢查過了
str:= str+TCheckBox(find component(' checkBox '+inttostr(I)))。標題；
結束；
show message(str)；
結束；