如何采用报表将一个目录中的所有图片以缩略图的形式打印出来？！！急！！！！！ ( 积分: 50 )

如何采用报表将一个目录中的所有图片以缩略图的形式打印出来？！！急！！！！！[?]

object Form1: TForm1
object Button1: TButton
object FileListBox1: TFileListBox
object QuickRep1: TQuickRep

object QRSubDetail1: TQRSubDetail
OnNeedData = QRSubDetail1NeedData
object QRImage1: TQRImage
Stretch = True

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;

procedure TForm1.QRSubDetail1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
moredata:=True;
if i<FileListBox1.Items.Count then
qrimage1.Picture.LoadFromFile(FileListBox1.Items)
else
moredata:=false;
i:=i+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;