Ayuda a listar archivos en ListView

[chuli17]

Hola buenas, aber si me podiais echar un vistacillo a ese codigo, lo que pasa es que listo las carpetas y archivos de unidades de disco duro y solo me da la primera carpeta o el primer archivo y con mas que le doy vueltas no consigo sacar el fallo... este es el code

Código Delphi [-]
if Copy(Date, 1, 14) = 'LISTARARCHIVOS' then
begin
Delete(Date, 1, 15); //Borra 'LISTARARCHIVOS|'
Newl := ListView1.FindCaption(0,Inttostr(Socket.SocketHandle),False,True,False); //Buscamos la conexión
if Newl <> nil then
begin
Form2.ListViewArchivos.Items.BeginUpdate;
(Newl.SubItems.Objects[0] as TForm2).ListViewArchivos.Clear; //Limpia primero...
if Length((Newl.SubItems.Objects[0] as TForm2).Edit1.Text) > 3 then
begin
//Newl := (Newl.SubItems.Objects[0] as TForm2).ListViewArchivos.Items.Add;
Newl.ImageIndex := 0;
(Newl.SubItems.Objects[0] as TForm2).ListViewArchivos.Items.Add.Caption := '<..>';
end;
//while Pos('|', Date) > 1 do
begin
TempStr := Copy(Date, 1, (Pos('|', Date) - 1));
Delete(Date, 1, Pos('|', Date)); //Borra lo que acaba de copiar
if TempStr[1] = #2 then //entonces le llegó una carpeta
begin
Delete(TempStr, 1, 1); //borra el #2
Newl := (Newl.SubItems.Objects[0] as TForm2).ListViewArchivos.Items.Add;
Newl.ImageIndex := 1; //1 es el icono de carpeta cerrada
Newl.Caption := TempStr;
Newl.SubItems.Add('');
Newl.SubItems.Add('Carpeta de archivos');
Newl.SubItems.Add('');
end
else //entonces es un archivo, saque tambien la información extra...
begin
Newl := (Newl.SubItems.Objects[0] as TForm2).ListViewArchivos.Items.Add;
Newl.ImageIndex := 2;
Newl.Caption := TempStr;
TempStr := (Copy(Date, 1, (Pos('|', Date) - 1)));
Delete(Date, 1, Pos('|', Date)); //Borra lo que acaba de copiar
Newl.SubItems.Add(TempStr + 'Kb'); //agrega el tamaño
TempStr := (Copy(Date, 1, (Pos('|', Date) - 1)));
Delete(Date, 1, Pos('|', Date)); //Borra lo que acaba de copiar
Newl.SubItems.Add(TempStr); //agrega el tipo
TempStr := (Copy(Date, 1, (Pos('|', Date) - 1)));
Delete(Date, 1, Pos('|', Date)); //Borra lo que acaba de copiar
Newl.SubItems.Add(TempStr); //agrega la fecha
end;
end;
end;
end;

Aber si me podeis echar una mano a encontrar ese error ke no deja listar todas las carpetas y archivos.... Gracias a todos