procedure TForm1.ImageEnView1Progress(Sender: TObject; per: Integer);
begin
  case ImageEnView1.Proc.ProgressTask of
    ietProcessing  : CodeSite.Send('Processsing: ', per);
    ietAnalysis    : CodeSite.Send('Analyzing: ',   per);
    ietResampling  : CodeSite.Send('Resizing: ',    per);
    ietRotating    : CodeSite.Send('Rotating: ',    per);
    else             CodeSite.Send('else: ',        per);  // Should not occur
  end;
end;

    ProgressBar1.Visible := True;
    try
      ReduceColors;
    finally
      ProgressBar1.Visible := False;
    end;
	
procedure TForm1.ImageEnView1Progress(Sender: TObject; per: Integer);
begin
  if not ProgressBar1.Visible then EXIT;

  ProgressBar1.Position := per;
end;