delphi中combobox绑定数据为何更新不了

数据库更新了，但是更新的内容却没在combobox显示出来，重新运行时就可以显示了。
procedure TForm11.FormCreate(Sender: TObject);
var
i:integer;
begin
 with adoquery1 do
begin
 sql.Text :='select distinct 用户名 from 用户表';
 open;
 combobox1.Items.Clear ;
 for i:=1 to recordcount do
 begin
 combobox1.Items.Add(fieldbyname('用户名').asstring);
 next;
 end;
 close;
end;
end;
procedure TForm8.FormCreate(Sender: TObject);
var i:integer;
begin
   with adoquery1 do
   begin
     sql.Text :='select 年段名 from  年段表';
     open;
     ComboBox1.Clear ;
     ComboBox1.Items.Add('所有年段');
     for i:=1 to RecordCount do
     begin
       ComboBox1.Items.Add(fieldbyname('年段名').AsString);
       next;
     end;
     close;
end;
end;
procedure TForm8.ComboBox1Change(Sender: TObject);
var
i:integer;
s:string;
begin
 with adoquery1 do
 begin
  s:='select 班级名,年段 from 班级表'
     +' where 年段='''
     + ComboBox1.text
     +'''';
     sql.Text :=s;
     open;
     ComboBox2.Clear ;
     ComboBox2.Items.Add('所有班级');
     for i:=1 to recordcount do
     begin
     ComboBox2.Items.Add(fieldbyname('班级名').AsString);
     next;
     end;
     close;
     end;
这几个都一样，如何修改才能显示呢？请高手们详细指导下。
end;