С помощта на 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 данните трябва да се обвържат от база данни, което е моето изискване... помогнете ми..