QP := TDebenuPDFLibrary1612.Create;

if QP.LoadFromFile(OpenImageEnDialog1.FileName, '') = 1 then
begin
   MS := TMemoryStream.Create;
   DPI := (4 * 25 * 300) div 100;
   QP.RenderPageToStream(DPI, 1, 0, MS);
   MS.Seek(0, soFromBeginning);
   //Now use the stream to load page in ImageEn as Image
   MS.Seek(0, soFromBeginning);
   ImageEnView.IO.LoadFromStream(MS);
   ImageEnView.Update;
   MS.Free;
end;

procedure TForm3.BtnPdf2BmpClick(Sender: TObject);
var
  PDFLibrary: TDebenuPDFLibrary;
  UnlockResult, Option, Dpis, Page: Integer;
  PdfSourceFile, BmpOutputFile: String;
  TargetStream: TMemoryStream;
begin
  PDFLibrary := TDebenuPDFLibrary.Create;
  UnlockResult := PDFLibrary.UnlockKey(MyDebenuTrialKey);

  Dpis := 300;
  Page := 1;
  Option := 0;

    (* Options
    0 = BMP output
    1 = JPEG output
    2 = WMF output
    3 = EMF output
    4 = EPS output
    5 = PNG output
    6 = GIF output
    7 = TIFF (LZW) output
    8 = EMF+ output
    9 = HTML5 output
    10 = TIFF (G4) output     *)
	
  PdfSourceFile := 'D:\_OUTPUT\_IN\Color2BW.pdf';
  BmpOutputFile := 'D:\_OUTPUT\_IN\Color2BW ' + intToStr(Dpis) + ' dpis.bmp';

  try
    PDFLibrary.LoadFromFile(PdfSourceFile, '');

    if PDFLibrary.RenderPageToFile(Dpis, Page, Option, BmpOutputFile) = 1 then
      Caption := 'Ok';

    TargetStream := TMemoryStream.Create;
    PDFLibrary.RenderPageToStream(Dpis, page, Option, TargetStream);
    TargetStream.Position := 0;
    Image1.Picture.Bitmap.LoadFromStream(TargetStream);
    TargetStream.Free;

  finally
    PDFLibrary.Free;
  end;

  ShowMessage('Done.');
end;