como agrego esta rutina a un treeview
 

Es decir lo que necesito es que al recorrer el directorio seleccionado agregue al treeview carpetas y archivos como si fuera un explorador

procedure TForm1.Button1Click(Sender: TObject);

procedure RastreaDir(Dir: string);
var
FileSearch: TSearchRec;
begin
chDir (Dir);
FindFirst ('*.*', faDirectory, FileSearch);

while FindNext(FileSearch)=0 do
begin
if (FileSearch.Attr = faDirectory) then
begin
if (FileSearch.Name<>'..') then RastreaDir(Dir+FileSearch.Name+'\');
end else
{Pon aqui lo que quieras hacer con los ficheros encontrados}
{Put here anything to make with the find files}
Memo1.Lines.Add(Dir+FileSearch.Name);
end;
FindClose(FileSearch);
end;

begin
RastreaDir('D:\');
end;

Agrega las etiquetas adecuadas para presentar tu código.

// Saludos

Hola jhcaboverde.
A parte de lo que te ha comentado Román y de que leas la Guía de estilo, te pido que dejes de poner diferentes mensajes repartidos en varios foros e hilos referentes al mismo tema.

Has dejado estos tres:
* http://www.clubdelphi.com/foros/showthread.php?t=62188
* http://www.clubdelphi.com/foros/showthread.php?t=64155
* http://www.clubdelphi.com/foros/showthread.php?t=64156

Esta respuesta es para ambos:

No solo es criticar sino enseñar, y si lo que se hace no es correcto den mas explicaciones y así no solo aprendo yo sino todo el que puede cometer el mismo error. en fin gracias por sus sugerencias y si tienen la ayuda que necesito mis gracias de ante mano

Pues las explicaciones a lo que no has hecho correctamente creo que están claras:

(1) No has colocado etiquetas en el codigo.
"Agrega las etiquetas adecuadas para presentar tu código"

(2) Has repetido lo mismo en 3 hilos.
"te pido que dejes de poner diferentes mensajes repartidos en varios foros e hilos referentes al mismo tema"

Por último, decirte que aquí no sólo "criticamos" como dices tú (yo lo veo como darte indicaciones para que hagas las cosas correctamente) sino que también ayudamos.
Al primer hilo que has posteado aquí, te he contestado con que mires unos componentes que ya hacen (sin ninguna línea de código) lo que estás pidiendo y además vienen con Delphi. Ni lo has contestado y además has escrito los dos nuevos. :confused::confused::confused: