关于窗口打开时地址错误 ( 积分: 0 )

程序运行时就自动创建这个窗口，我没有这样做了我删除了 我是这样实现的
if not assigned(vendor_list) then
begin
vendor_list:=Tvendor_list.Create(self);
vendor_list.ShowModal;
end;
这是我打开vendor_list窗口的代码 为什么我在vendor_list的create事件写上这些代码就有错呢 提示地址错误，如是不要下面的代码 就可以了 不会有错
combobox1.Items.Text:=''; //剂型
with adoquery1 do
begin
close;
sql.Clear;
sql.Text:='select jx from yaojx';
open;
first;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('jx').Value);
adoquery1.Next ;
end;
end;
close;
end;

while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('jx').Value);
adoquery1.Next ;
end;
close;
end;

while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('jx').Value);
adoquery1.Next ;
end;
end;
close; //这个close是什么意思呢？窗体的Close吧，因为adoquery1的作用域已过，
//去掉这一句或者把Close放到里面一层。
end;

谢了 已解决