关于treeview 与数据库(100分)

现在我有一张表包括俩个字段（zoneid 和zonename)
有一个空白的treeview
我想在运行的时候让treeview 显示所有的zoneid
我写的我必须在form里加上dbgrid。
如果我不加的话，就只能显示treeview中就只能显示一条纪录，请指教！
我是这么写的（treeview 在form3 中）
procedure TDataModule2.N1Click(Sender: TObject);
var
i: integer;
bb: integer;
begin
form3.show;
form3.TreeView1.Items.clear;
if datamodule2.IBtable1.recordcount=0
then showmessage('现在没有任何区域');
if datamodule2.IBtable1.RecordCount<>0
then
begin
datamodule2.IBtable1.Refresh;
bb:=DataModule2.IBTable1.ReCordCount;
datamodule2.ibtable1.First;
with form3.TreeView1.Items do
begin
form3.treeview1.items.clear;
add(nil,datamodule2.ibtable1.FieldByName('Zonename').value);
for i:=1 to bb-1 do
begin
datamodule2.ibtable1.next;
add(nil,datamodule2.ibtable1.FieldByName('Zonename').value);
end;
datamodule2.IBTable1.first;
end;
end;
end;

改成这样:
procedure TDataModule2.N1Click(Sender: TObject);
var i: integer;
bb: integer;
begin
form3.show;
form3.TreeView1.Items.clear;
if datamodule2.IBtable1.recordcount=0
then showmessage('现在没有任何区域');
with form3.TreeView1.Items do
begin
datamodule2.IBtable1.Refresh;
bb:=DataModule2.IBTable1.ReCordCount;
datamodule2.ibtable1.First;
while not datamodule2.ibtable1.eof do
begin
add(nil,datamodule2.ibtable1.FieldByName('Zonename').value);
datamodule2.ibtable1.next;
end;
datamodule2.IBTable1.first;
end;
end;
end;

naming 的方法可行，谢谢你！我会给你加分的

接受答案了.