Problem after updating to wPDF3

procedure TForm1.Button1Click(Sender: TObject);
var
  PDF: TWPPDFExport;
  strFileName: string;


begin
RzProgressBar1.PartsComplete:=0;
  WPDF_Start('xxx, 'xxx');
  PDF := TWPPDFExport.Create(nil);
  try
    PDF.CidFontMode := wpCIDUnicode;
    PDF.Source := WPRichText1;


    PDF.FontMode := wpEmbedSymbolTrueTypeFonts;
    PDF.CompressStreamMethod := wpCompressFlate;
    PDF.JPEGQuality := wpJPEG_50;
    dbisamtable1.open;
    wprichtext1.TextLoadFormat := 'Auto';
    RzProgressBar1.TotalParts:=dbisamtable1.RecordCount;
    while not dbisamtable1.Eof do
      begin
        // Load Text
        try
        WPRichText1.TextLoadFormat := 'Auto';
        WPRichText1.BeginUpdate;
        WPRichText1.AsString := dbisamtable1.FieldByName('DrugInfoSheet').AsString;
        WPRichText1.EndUpdate;
        RzProgressBar1.IncPartsByOne;
        WPRichText1.ReformatAll(True, False);
        pdf.Filename := 'D:\Documents and Settings\bernr\Desktop\!test\' + dbisamtable1.FieldByName('DrugInfoSheet_GUID').AsString + '.pdf';
        PDF.BeginDoc;
        PDF.Print;
        PDF.EndDoc;
        except
          application.ProcessMessages;
        end;
        dbisamtable1.Next;
      end;
  finally
    dbisamtable1.Close;
    pdf.free;
  end;
end;