procedure TForm23.Button1Click(Sender: TObject);
begin
 with TIEMultiBitmap.Create do
 try
   if not Read('TEST.JPG') then
     ShowMessage('Error')
   else
     ShowMessage('ok');
 finally
   free
 end;
end;

 with TIEMultiBitmap.Create do
 try
   if not Read( 'D:\TEST.JPG', nil, True ) then
     ShowMessage('Error')
   else
     ShowMessage('ok');
 finally
   free
 end;

 RenameFile( 'D:\TEST.JPG', 'D:\TEST.PNG' );
 with TIEMultiBitmap.Create do
 try
   if not Read( 'D:\TEST.PNG' ) then
     ShowMessage('Error')
   else
     ShowMessage('ok');
 finally
   free
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
  mbmp : TIEMultiBitmap;
begin
   mbmp := TIEMultiBitmap.Create;
   try
     if not mbmp.read( 'D:\TEST.PNG' ) then
       ShowMessage('Error')
     else
       ShowMessage('ok');
       ImageEnMView1.AssignEx( mbmp );
   finally
     mbmp.Free
   end;
 end;