LoadFromFile con una progressbar

[[Chris]]

Código Delphi [-]
Form1 = Class(Form)
Procedure Image1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; 
RedrawNow: Boolean; const R: TRect;const Msg: String);

Procedure OnCreate(Sender:TObject);
end;

Implementation
{en el siguiente procedimiento es donde actualizamos el progressbar}
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
  const Msg: String);
begin
miProgressbar.Position := PercentDone;
form1.update;
end;

Procedure Form1.OnCreate(Sender:Tobject);
Begin
 jvDBImage1.Picture.OnProgress := Image1Progress;
{en la línea anterior asignamos la propiedad "OnProgress"
del objeto picture contenido dentro del control jvDBImage,
al procedimiento que habíamos escrito anteriormente "Image1Progress"}
end;

En el primer procedimiento le decimos a la computadora que actualize el progressbar con el valor del progreso de carga que lleva la imagen.
en el segundo procedimiento "OnCreate" le decimos a la computadora que en el método OnProgress del objeto Picture ejecute el procedimiento "Image1Progress"

Ese es un resumen del código, pero esa es la ídea. No estoy seguro si funcionará pero la lógica me dice que sí.
Creo que tendras que agregar algunas exceptiones por si acaso algo falla. Fallaría si el control jvDBimage destruye el
objeto Picture cada vez que cambia de imagen o cuando no exista una imagen.