Problemas com TidFTP.DirectoryListing no Delphi 2006

TVServidor.Items.Clear;
  TVServidor.HotTrack:= True;
  TVServidor.OnCompare:= nil;

  IdFTP1.ChangeDir(´/institucional/setores/´+Setor+´/´);

  try
     //TVServidor.Items.Clear;

     IdFTP1.List(AFiles);

     i:= 1;
     //AFiles está preenchido corretamente, com um ShowMessage visualizo tds os dirs e arqs
     while i <= AFiles.Count do
      begin
        {Nessa linha abaixo ocorre o erro de List Index Out of Bounds
           sendo q eu já verifiquei e o list está retornando os diretórios
           e arquivos pra meu string list de teste}
        arq:= IdFTP1.DirectoryListing.Items[i-1].FileName;

        TVServidor.Items.Add(nil,arq);

        idi:= TVServidor.Items[TVServidor.Items.Count - 1];

        IdFTP1.ChangeDir(IdFTP1.RetrieveCurrentDir+´/´+arq+´/´);
        IdFTP1.List(AFiles);