No sé si te seguirá valiendo
pero lo he solucionado tal que así
Código Delphi
[-]
var
LS : TStringList;
CAD: string;
begin
LS := TStringList.Create;
try
IdFTP.List(LS, '', true);
for n:=0 to LS.Count-1 do begin
CAD := LS.Strings[n];
case( CAD[1] ) of
'-':begin end;
'd':begin end;
else begin end;
end; end; finally
LS.Free;
end;
end;
Espero que aún te sirva
Saludos