[GReddy]

Grunch

Я вставил код в программу, но возникла проблема в коде он выделяет эту строку и вообще незапускает программу! Как это можно исправить???

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    CheckListBox1: TCheckListBox;
    procedure ComboBox1Change(Sender: TObject);
    procedure CheckListBox1Click(Sender: TObject);
    procedure CheckListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    CheckListBox1.Items.Clear;
    if ComboBox1.ItemIndex=0 then
begin
    CheckListBox1.Items.Add('11');
    CheckListBox1.Items.Add('12');
end;
    if ComboBox1.ItemIndex=1 then
begin
    CheckListBox1.Items.Add('21');
    CheckListBox1.Items.Add('22');
end;
end;

Admin: Пользуемся тегами!