procedure TfmMain.ProcessDocument(const p_FileName: String);
var
  v_ImageView: TImageEnView;
  v_Index: Integer;
begin
  v_ImageView := TImageEnView.Create(nil);
  try
    try
      v_Index := 1;
      repeat
        v_ImageView.ClearAll;
        v_ImageView.IO.Params.FileName := p_FileName;
        v_ImageView.IO.Params.ImageIndex := v_Index;
        v_ImageView.IO.LoadFromFilePDF(p_FileName);
        LogMessage(p_FileName+' Page='+IntToStr(v_Index));
        // DETERMINE IF PAGE IS BLANK
        v_Index := v_Index+2;
      until v_Index >= V_ImageView.IO.Params.ImageCount;
    except
      on E: Exception do
        LogMessage(p_FileName+': Error '+E.Message);
    end;
  finally
    v_ImageView.Free;
  end;
end;

v_ColorPercent := v_ImageView.Proc.GetDominantColor(v_RGB);
if v_ColorPercent > 99.9 then
  // Blank Page

uses
  hyiedefs;
var
  v_ColorPercent: Double;
  v_RGB: TRGB;