Cписок отмеченных Checkbox'ов

[Tycuk]

Добрый день. Вопрос. Как получить список отмеченных Checkbox'ов. Нужно, чтобы список отображался в Memo или ListBox.

[new player]

Свойства CheckBox - Checked. Проверяете, если true делаете запись. И так по каждому CheckBox`y.

[Баламут]

var
  i: integer;
begin
  for i := 0 to Form1.ControlCount - 1 do
  begin
    if (Form1.Controls[i] is TCheckBox) then
      if (Form1.Controls[i] as TCheckBox).Checked then
      Memo1.Lines.Add((Form1.Controls[i] as TCheckBox).Caption)
  end;
end