private IEImage CachedIEImage = new IEImage();
public Form1()
{
  InitializeComponent();
  IEImage.FileFormatRemove(IEFileFormats.RAW);
  IEImage.AddExtIOPlugin(@"dcrawlib.dll");
}

private void LoadTestImage()
{
  CachedIEImage.IOParams.ResetInfo();
  string fileName = @"e:\TestImportCR2\TestCR2-1.CR2";
  CachedIEImage.LoadImageInfo(fileName, IEImage.FindFileFormat(fileName, false));
          
}

private void button1_Click(object sender, EventArgs e)
{
  for(int i = 0; i<20000; i++)
  {
    TestLoadImage();
    Text = i.ToString();
    Application.DoEvents();
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  for i := 0 to 20000 do
  begin
    ImageENIO1.Params.ResetInfo();
    ImageENIO1.ParamsFromFileFormat(fileName, FindFileFormat(fileName, false));
    Caption := IntToStr(i);
    Application.ProcessMessages;
  end;

end;

begin
  IEFileFormatRemove(ioRAW);
  IEAddExtIOPlugin('dcrawlib.dll');
end.