TShellTreeView怎么这么慢啊？！

1：不慢呀
2:var
    hi:hwnd;
    info:win32_find_data;
begin
form1.listview1.Items.Clear ;
begin
hi:=findfirstfile(pchar(directorylistbox1.directory+'\*.txt'),info);
form1.ListView1.Items.Add.Caption :=info.cFileName;
while(findnextfile(hi,info)) do
                 begin
form1.ListView1.Items.Add.Caption :=info.cFileName ;
end;