[Erilar]

Сообщение от lmikle

Код:

var
  I : Integer;
begin
  For I := 0 To ComponentCount-1 Do
    If Components[i] Is TCheckBox Then
      If (Component[i] As TCheckBox).Checked Then
         ListBox1.Items.Add((Components[i] As TCheckBox).Caption);

Спасибо. Очень помогло.