通过使用TreeList，我们如何从数据库中检索数据并在delphi表单上显示它

Question

如何从数据库中检索数据并在Ttreeview中以delphi形式显示这里是我尝试但不工作可以任何1建议我任何修改..谢谢你...

procedure TForm1.Button1Click(Sender: TObject);
var
  // node : TTreeList;
  i: Integer;
  MyTreeNode1,MyTreeNode2 : TTreeNode;
begin
   with TreeList1.Items do
   begin
        Clear;
        MyTreeNode1 := Add(nil, 'Table');
        ADOTable1.First;
        while ADOTable1 do
        begin
            AddChild(MyTreeNode1,'B') ;
            AddChild(MyTreeNode1,'c');
            Next;
        end;
   end;
end;

代替b和c数据必须从数据库中绑定，这是我的要求......帮助我..