如何添加文件夹的内容？(50分)

就是说一个文件夹中都是图片，然后添加整个文件夹，于是代表左，右按钮的TButton激活，可以选择前，后图片，给我提示好吗？

首先通过遍历你想要访问的文件夹，找出该文件夹中的所有的文件或子文件夹，当然你也可以只要图片文件，然后这些文件的文件名，文件类型都可以知道的，然后你可以用一个ListView或者其他控件显示这些内容，显示的样式可以有两种，1是自己更具该文件类型定义相应的图标，比如存放到ImageList中，2是可以根据文件类型在系统中找到相应的图标，这些资料网上都有好多的，两个按钮选择上下图那就更简单了，判断显示文件图标的索引值，就可以了（增加或者减少），

bitmap.savetofile('pic.bmp');

就是说先遍历，然后将索引存放到TImageList里面，然后再根据索引取图？

FindFirst
FindNext;

uses
filectrl

var
jpg,txt:byte;
MainPath:String;
SearchRec:TsearchRec;
begin
jpg:=0;
txt:=0;
MainPath:='F:/图象/jpg';
if copy(MainPath,length(MainPath),1)<>'/' then mainPath:=mainPath+'/';
if(DirectoryExists(MainPath)=true) then
begin
Application.ProcessMessages;
////////////////////查找文件并加入///////////////////////////////////
FindFirst(Mainpath+'*.*', faAnyfile, SearchRec);
if ExtractFileExt(SearchRec.name)='.gif' then
jpg:=jpg+1;
while (FindNext(SearchRec)=0) dO
BEGIN
if ExtractFileExt(SearchRec.name)='.gif' then
jpg:=jpg+1;
END;
showMessage('共有gif文件：'+intToStr(jpg));
////////////////////////////////////////////////////////////////
end else MessageBox(handle,'目录不存在!', '系统提示',MB_ICONERROR);
end