不知错在哪里

Question

请问各位高手，我用的DELPHI与SQL-SERVER数据库，我现在要做的小程序是调用当前SQL-SERVER中的所有的数据库，然后将其填加到COMBOBOX控件中，而我做的只能填加一个数据库，不知错在哪里。
with adoquery1 do
  begin
   close;
   sql.clear;
   sql.add('select name from sysdatabases');
   open;
   showmessage('werwer');
     end;
     combobox1.items.add(adoquery1.fieldbyname('name').asstring);
end

Answer 1

with adoquery1 do
  begin
   close;
   sql.clear;
   sql.add('select name from sysdatabases');
   open;
   first;
 while not eof do
begin
     combobox1.items.add(fieldbyname('name').asstring);
     next;
end;
end

Answer 2

根据适当的情况，你可以在上面的代码前决定是否用这一句
  combobox1.items.clear;
中秋节给你的礼物！！！！