Столкнулся со сложностью в формировании дерева (TTreeView) на основе данных из Access БД. Саму базу подключил.

Насколько я знаю, дерево формируется так:

var
Node : TTreeNode;
begin
Node := tv.Items.Add(nil, '1');
Node := tv.Items.AddChild(Node, '1.1');
Node := tv.Items.Add(Node, '1.2');
Node := tv.Items.Add(tv.Items[0], '2');
Node := tv.Items.Add(Node, '3');
Node := tv.Items.AddChild(Node, '3.2');
Node := tv.Items.AddChildFirst(Node.Parent, '3.1');
end;

А данные из базы берутся вроде бы так:

with TADOQuery do
begin
Open;
First;
while not Eof do
begin
Node := tv.Items.Add(nil, FieldByName('CompanyName').AsString);
Next;
end;
end;

Пробовал это связать в процедуре TMainForm.FormCreate, но что-то не доходит до меня, как это правильно сделать. Помогите, пожалуйста, кто в этом разбирается.