procedure TF_ViewMain.RenderPageNr (APic: TBitmap; Nr: Integer);
var
  MS: TMemoryStream;
  DPI, al, at: Integer;
begin
  if Assigned(QP) then begin
    MS := TMemoryStream.Create;
    try
      // Zoomval is set to 100 in this test
      if Zoomval <= 100 then begin
        DPI := 100; //Round ((zoomval * 96) / 100);
      end else begin
        DPI := Round (zoomval);
      end;

      // That does not work. - after loading, empty bitmap
      QP.RenderPageToStream (dpi, Nr, 0, ms);

      // That does not work! -empty bitmap
      //QP.RenderPageToFile(100, 1, 0, '/Users/harrystahl/Desktop/TestA.bmp');

      // That does not work! - empty tiff-file
      //qp.RenderAsMultipageTIFFToFile(100, '1', 0, 0, '/Users/harrystahl/Desktop/Test.tiff');

      // That works ( OK ) ---------
      //QP.ExtractFilePages(qp.GetDocumentFileName, '', '/Users/harrystahl/Desktop/Test.pdf', '1');

      // That works not! - empty bitmap
      //QP.RenderDocumentToFile(100, Nr, 1, 0, '/Users/harrystahl/Desktop/Test.bmp');

      MS.Position := 0;

      try
       APic.LoadFromStream(ms);
      except
       ShowMessage (qp.LastErrorCode.ToString); // result is zero
      end;
    finally
      MS.Free;
    end;
  end;
end;