[acl_gandalf]

Hola buenas a todos, estoy haciendo un programa q consiste en q yo selecciono un directorio de un DirectoryListBox y al hacer click en un boton, tengo q ver en un memo todos los directorios q dependen de el, ademas de la fecha de creacion de cada directorio/subdirectorio y el espacio q ocupa
Esto es lo q pongo yo, con elo consigo averiguar todos los subdirectorios de ese directorio, pero en cuanto a la capacidad y a la fecha de cracion aparece en el memo con 0. ¿alguien sabe porque?,¿que puedohacer para evitarlo?, lo he probado de muxas maneras y no consigo nada




procedure TForm1.Button2Click(Sender: TObject);
procedure func_directorio(directorio: string);
var x: TSearchRec;
begin
if FindFirst(directorio+'\*.*', faDirectory, x)=0 then
begin
while (FindNext(x)=0) and (profundidad <> 0) do
begin
if ((x.Attr and faDirectory)<>0) and (x.Name<>'.') and (x.Name<>'..') then
begin
// memo1.lines.Add(directorio+' '+x.Name+', '+inttostr(x.size)+'KB ,'+timetostr(x.Time));

memo1.lines.Add(directorio+' '+x.Name+', '+inttostr(x.size)+'KB, '+timetostr(x.Time));//+DateTimeToStr(FileDateToDateTime(fileAge(directorio))));
func_directorio(directorio+'\'+x.Name);
end;
// profundidad:=profundidad -1;
end;
FindClose(x);
end;
//profundidad:=profundidad -1;
end;
begin
memo1.Lines.Add('SUBDIRECTORIOS DE '+DirectoryListBox1.Directory); //+',' +DateTimeToStr(FileDateToDateTime(fileAge(DirectoryListBox1.Directory))));
func_directorio(DirectoryListBox1.Directory);
end;