FreePascal/Lazarus and QuickPDF

Uses ComObj;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  QP : Variant;
  LicenseKey : WideString;
  iResult : integer;
  FileName : WideString;
  v : variant;
  bm : Graphics.TBitmap;

begin
  QP := CreateOleObject('QuickPDFAX0725.PDFLibrary');
  Memo1.Lines.Add(QP.LibraryVersion);
  LicenseKey := 'add yours here';
  FileName := 'Hello.pdf';
  iResult := QP.UnlockKey(LicenseKey);
  if (iResult = 1) then begin
    Memo1.Lines.Add('Valid license key: ' + QP.LicenseInfo);
    QP.DrawText(60, 600, 'Hello world from Lazuras');
    //Works!    
    //v := Canvas.Handle;
    //QP.RenderPageToDC(92, 1, v);
    
    //This also works
    bm := TBitmap.Create;
    bm.Width := 612;
    bm.Height := 792;
    v := bm.Canvas.Handle;
    QP.RenderPageToDC(92, 1, v);
    Canvas.Draw(0,0, BM);
    if (QP.SaveToFile('Hello.pdf') = 1) then begin
      Memo1.Lines.Add('File ' + FileName + ' was written successfully to disk');
    end else begin
      Memo1.Lines.Add('Error, file could not be written');
    end
  end else begin
    Memo1.Lines.Add('Invalid license key');
    Memo1.Lines.Add('Please set your license ke7y by editing this file');
  end;
  QP := NULL;
end;