Si estas utilizando un objeto TPicture puedes escribir código en el evento OnProgress. Lo que te debe interesar el la constantes PercentDone que indica que porcentaje del proceso que se ha realizado, este lo pasas la progresbar que debe tener como su valor maximo 100 y minimo 0.
por ejemplo :
Código Delphi
[-]
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: String);
begin
miProgressbar.Position := PercentDone;
form1.update;
end;
Si no estás utilizando un tPicture, entonces necesitarás ir a niveles más bajos. Cualquier cosa, dejamela saber. Saludos.