procedure TForm1.FormCreate(Sender: TObject);
var
node: TTreeNode;
begin
node := TreeView1.Items.AddChild(nil, 'Adam');
TreeView1.Items.AddChild(node, 'Adam1');
TreeView1.Items.AddChild(node, 'Adam2');
node := TreeView1.Items.AddChild(nil, 'Ben');
TreeView1.Items.AddChild(node, 'Ben1');
node := TreeView1.Items.AddChild(nil, 'Charlotte');
node := TreeView1.Items.AddChild(nil, 'Denis');
TreeView1.Items.AddChild(node, 'Denis1');
TreeView1.Items.AddChild(node, 'Denis2');
TreeView1.Items.AddChild(node, 'Denis3');
end;