[salvica]

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 //-----> es un fichero
               end;
            'd':begin //-----> es un directorio
               end;
         else begin //-----> es un enlace
               end;
         end; // del case
      end; // del for
   finally
      LS.Free;
   end;
end;

Espero que aún te sirva
Saludos