高手诊断delphi条件语句

procedure TForm1.ComboBox2Click(Sender: TObject);
begin
if combobox1.Text='初中'then
begin
if combobox2.Itemindex=0 then //选中第1册
begin
combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('敕勒歌');
combobox3.Items.Add('为学');
end;
if combobox2.Itemindex=1then //选中第2册
begin
combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('春江晚景');
combobox3.Items.Add('口技');
end;
if combobox2.Itemindex=2then //选中第3册
begin
combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('望天门山');
combobox3.Items.Add('春夜喜雨');
end ;
if combobox2.Itemindex=3then //选中第4册
begin
combobox3.Clear ;
combobox3.Text:='选择篇目';
combobox3.Items.Add('晓出静慈寺送林子方');

高手诊断delphi条件语句 请高手诊断我的delphi条件语句问题 delphi 语句不执行？ Delphi 中SQL语句 delphi语句问题 delphi语句的问题.^^ Delphi语句问题? 一句Delphi语句 delphi 中SQL语句 条件语句