TFPCustomImage.Progress

protected procedure TFPCustomImage.Progress(

  Sender: TObject;

  Stage: TProgressStage;

  PercentDone: Byte;

  RedrawNow: Boolean;

  const R: TRect;

  const Msg: AnsiString;

  var Continue: Boolean

); virtual;