为什么这一段代码不对？

Question

我的目的是在窗体上使用两个combobox,里面分别列出两个数据标的关键字段，使用了两个adoquery.并且其active=true;如果只加载一个cobbobox，没有任何错误，但是两个一起加载，就抱错了，出现错误的是这一句。while not adoquery2.eof do请问下面的代码有什么问题吗？
procedure Tha.FormCreate(Sender: TObject);
begin
combobox1.clear;
combobox2.Clear;
adoquery1.first;
adoquery2.First;
while not adoquery1.eof do
  begin
   combobox1.items.add(adoquery1.fieldbyname('name_short').asstring);
   adoquery1.next;
  end
while not adoquery2.eof do
  begin
   combobox2.items.add(adoquery2.fieldbyname('grade').asstring);
   adoquery2.next;
  endend;

Answer 1

能不能说清楚点？我是菜鸟，我也感觉似乎是end的事情，可是不知道那里错了，

Answer 2

procedure Tha.FormCreate(Sender: TObject);
begin
combobox1.clear;
combobox2.Clear;
adoquery1.first;
adoquery2.First;
while not adoquery1.eof do
  begin
   combobox1.items.add(adoquery1.fieldbyname('name_short').asstring);
   adoquery1.next;
  end///在这里没有分号
while not adoquery2.eof do
  begin
   combobox2.items.add(adoquery2.fieldbyname('grade').asstring);
   adoquery2.next;
  endend;