//........................................... Свой код
procedure TMYProgressHandler.UpdateProgress (APrompt1, APrompt2: string;
  AValue: integer; AAbsolutePosition: boolean);
begin
  if AAbsolutePosition then
    Position := AValue  //<----- тут
    else
    if AValue < 0 then
   .................
//............................................................... Свой код
procedure TMYProgressHandler.SetInteger;
begin
  if FProgressbar <> nil then
    case Index of
      1 : FProgressbar.Step := Value;
      2 : FProgressbar.Min := Value;
      3 : FProgressbar.Max := Value;
      4 : begin
           FProgressbar.Position := Value;
           if FForm <> nil then FForm.Update; //<--- далее тут где FForm это TForm
           end;
      end;
//............................................................... vcl.controls
procedure TWinControl.Update;
begin
  if HandleAllocated then UpdateWindow(WindowHandle); // далее тут
end;
//..................................................
// далее разные переходы в vsl.*
//.................................................. vcl.gaphics
function TBrush.GetHandle: HBrush;
var
  LogBrush: TLogBrush;
........................
Handle := CreateBrushIndirect(LogBrush); // <--- и в конце тут