我在运行程序时,每次进入一个有combobox控件的页面时,进入一次它的值就重复一次,比如是:第一次,combobox的下拉值是1\2\3,第二次进入时就是:1\2\3\1\2\3,第三次就是1\2\3\1\2\3\1\2\3。这们重复,这是怎么回事啊,快帮帮忙吧?我的代码是:
procedure TForm3.FormShow(Sender: TObject);
begin
    with query1 do
 begin
  close;
  sql.add('select SA02 from s_sa');
  open;
  while not eof do
   begin
    combobox1.Items.add(fieldvalues['sa02']);
    Query1.next;
   end;
 end;
end;