delphi image控件: 实现指定路径下多张图片的循环浏览.

1.已实现其它所有读取,查看,显示效果功能;
2.需实现: 点击图片,自动浏览下一张图片, 且可以循环操作;
3.如果方便的话,可以粘贴图片编辑的代码 (非必需品).

通过FileListBox1控件的方法. 如下: 读取: img1.Picture.LoadFromFile (FileListBox1.FileName ); 和 遍历FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;

1 获取路径下图片，并存放到数组中。
2.设置初始位置
３.在Timage控件点击事件中：

显示数组下一个位置对应的图片；
    当前位置+1
    判断当前位置，如果大于数组长度
    当前位置 = 初始位置。