如何使在OpenPictureDialog1k中选中的多上图像文件装入IMAGE控件。(100分)

一个看图软件，一个TIMER控件，一个IMAGE控件，几种特效处理的方式（如百叶窗式，推拉式），一个选择文件的按钮，当单击“选择文件”按钮时，打开“打开图像文件对话框”，OpenPictureDialog1，当用户选择多个图像文件时，怎样把图像文件根据timer控件的执行。一个一个的装入IMAGE控件，进行特效显示。
谢谢，本人搞了一天也没有搞出来。

最好有代码。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtDlgs, StdCtrls, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
Button1: TButton;
OpenPictureDialog1: TOpenPictureDialog;
Timer1: TTimer;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
FPicFiles: TStrings;
FCurIndex: Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
FPicFiles.Assign(OpenPictureDialog1.Files);
if FPicFiles.Count > 0 then
begin
FCurIndex := 0;
Timer1.Enabled := True;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FPicFiles := TStringList.Create;
FCurIndex := -1;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FPicFiles.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FCurIndex = FPicFiles.Count then FCurIndex := 0;
if FileExists(FPicFiles[FCurIndex]) then
Image1.Picture.LoadFromFile(FPicFiles[FCurIndex]);
Inc(FCurIndex);
end;

end.

没有特效处理。

统一楼上的做法.只要把获得的文件名组赋值给Tstrings类,就可以对Tstrings类的对象进行操作呢