몇일째 삽질하고 있습니다. 도와주세요~~ ㅡ..ㅡ;
문제는 재귀호출에서 List index out of bounds(1) 가 발생합니다.
TEST
└TEST
   └TEST
위와 같이 단일 폴더들만 있는 경우에는 삭제가 잘되는데여
TEST
  └TEST
  └TEST
이런 식인 경우에 에러가...
아래 작성한 소스인데 뭐가 문제일까여?


procedure FTP.DelClick(Sender: TObject);
begin
    Folder_Delete(Folder_Name);
end;

procedure FTP.Folder_Delete(DirName: String);
var
  I: Integer;
  ThisPath: String;
  DirList: TIdFTPListItems;
  DirItem: TIdFTPListItem;
begin
  IdFTP.ChangeDir(DirName);
  IdFTP.List(nil);
  DirList := IdFTP.DirectoryListing;
  for I := 0 to DirList.Count - 1 do begin
    DirItem := DirList.Items[I];
    ThisPath := DirName + '/' + DirItem.FileName;
    if DirItem.ItemType = ditDirectory then begin
      All_Folder_Check(ThisPath);
    end else IdFTP.Delete(ThisPath);
  end;
  IdFTP.RemoveDir(DirName);
end;