uses DateUtils, iewic, imageenio;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
 fStart: Cardinal;
begin
 fStart := GetTickCount;
 ImageEnView1.IO.LoadFromFile('01.jpg');
 ShowMessage(FormatDateTime('hh:nn:ss.zzz', (GetTickCount - FStart) * OneMillisecond));
end;

procedure TForm5.Button2Click(Sender: TObject);
var
 fStart: Cardinal;
begin
 fStart := GetTickCount;
 with TIEWICReader.Create do
  begin
   Open('01.jpg', ioJPEG);
   GetFrame(0, ImageEnView1.IEBitmap, ImageEnView1.IO.Params);
   Free;
 end;

 ImageEnView1.Update;
 ShowMessage(FormatDateTime('hh:nn:ss.zzz', (GetTickCount - FStart) * OneMillisecond)); 
end;