procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
root:TTreeNode;
i: integer;
begin
i := 1;
// buscar el primer elemento
FindFirst('c:\winnt\*.*', faDirectory, SR);
// Añladir el raiz
root := TreeView1.Items.AddFirst(nil, 'c:\winnt\');
// Mientras encuentre elementos, repetir
repeat
// Es un directorio (ficheros NO)
if (SR.Attr and faDirectory) <> 0 then begin
// Añadirlo como hijo de root
TreeView1.Items.AddChild(root, SR.Name);
i := i + 1; { increment index }
end;
// ...mientras encuentre elementos
until FindNext(sr) <> 0;
// Expandir el nodo root
root.Expand(True);
end;