Range Check Error when using RenderPageToDC

It occurs when I try to render pages from a multipage document as well as with single page documents.  When rendering multipage documents, the range check error doesn't always occur on the same page. 

 

Any suggestions would be great.  Here is my code.

 

procedure TfrmPDFManager.GetPDFPreview(PDFFileName : String; DPI, PageNo : Integer);
var
   PDFLibrary : TQuickPDF0721;
   UnlockResult : Integer;
begin
Screen.Cursor := crHourglass;
Image1.Picture := nil;
PDFLibrary := TQuickPDF0721.Create;
try
 UnlockResult := PDFLibrary.UnlockKey(QUICKPDFLICENSEKEY);
 if UnlockResult = 1 then
    begin
    PDFLibrary.LoadFromFile(PDFFileName);
    Image1.Picture.Bitmap.Width := Round(PDFLibrary.PageWidth);
    Image1.Picture.Bitmap.Height := Round(PDFLibrary.PageHeight);
    PDFLibrary.SetOrigin(1); //--> Added this line to try to solve Range Check Error, no change.
    PDFLibrary.RenderPageToDC(DPI, PageNo, Image1.Canvas.Handle); //-->Range Check Error here
    PDFPAGES := PDFLibrary.PageCount;
    end;
 finally
 PDFLibrary.Free;
 end;
Image1.Repaint;
Screen.Cursor := crDefault;
end;