unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ieview, imageenview, imageenio;

type
 TLoadPicture = class(TThread)
  _List: array [0..10] of string;
  _IE: TImageEnView;

  protected
   procedure Execute; override;

  public
   constructor Create(IE: TImageEnView);

 end;

type
  TForm2 = class(TForm)
    ImageEnView1: TImageEnView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
   FLoadPicture: TLoadPicture;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 if Assigned(FLoadPicture) then
  begin
   if not FLoadPicture.Terminated then
    FLoadPicture.Terminate;

   FLoadPicture := nil;
  end;

 FLoadPicture := TLoadPicture.Create(ImageEnView1);
 FLoadPicture.Start;
end;

{ TLoadPicture }

constructor TLoadPicture.Create(IE: TImageEnView);
begin
 inherited Create(True);
 FreeOnTerminate := True;
 _IE             := IE;

 _List[0]  := 'C:\img\0.jpg';
 _List[1]  := 'C:\img\1.jpg';
 _List[2]  := 'C:\img\2.jpg';
 _List[3]  := 'C:\img\3.jpg';
 _List[4]  := 'C:\img\4.jpg';
 _List[5]  := 'C:\img\5.jpg';
 _List[6]  := 'C:\img\6.jpg';
 _List[7]  := 'C:\img\7.jpg';
 _List  := 'C:\img\8.jpg';
 _List[9]  := 'C:\img\9.jpg';
 _List[10] := 'C:\img\10.jpg';
end;

procedure TLoadPicture.Execute;
var
 _BMP: TImageEnIO;
  I: Integer;
begin
 if not Terminated then
  begin
   _BMP := TImageEnIO.Create(nil);
   try
    for I := Low(_List) to High(_List) do
     begin
      if Terminated then
       Break;

       begin
        _BMP.LoadFromFile(_List[I]);

        Synchronize(procedure ()
        begin
         _IE.IEBitmap.Assign(_BMP.IEBitmap);
         //_IE.UpdateReason := ieurChangeBitmap; Add This Option Please Nigel for Update Repaint Fast...
         _IE.Update; // Slow Because Process Very Information...
         Sleep(1000);
        end);

      end;
     end;

   finally
    FreeAndNil(_BMP);
   end;
  end;

 Terminate;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 FLoadPicture := nil;
end;

end.