Используя TreeList, как мы можем получить данные из базы данных и показать их в форме delphi

Как получить данные из базы данных и отобразить в Ttreeview в форме delphi, вот что я пробовал, но не работает, может ли кто-нибудь предложить мне какие-либо модификации. Спасибо...

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 данные должны быть привязаны к базе данных, что является моим требованием... помогите мне..