diff --git a/components/fpvectorial/pdfvectorialwriter.pas b/components/fpvectorial/pdfvectorialwriter.pas
index ad20b4cc6b..3c5606509b 100644
--- a/components/fpvectorial/pdfvectorialwriter.pas
+++ b/components/fpvectorial/pdfvectorialwriter.pas
@@ -846,6 +846,8 @@ begin
   for i := 0 to AData.GetPageCount - 1 do  // iterate through pages
   begin
     TextPage := AData.GetPageAsText(i);
+    if TextPage = nil then
+      raise Exception.Create('No text page found.');
     Empty := AddPage(TextPage);
     for j := 0 to TextPage.GetEntitiesCount - 1 do  // iterate through entities
     begin