diff --git a/components/fpvectorial/pdfvectorialwriter.pas b/components/fpvectorial/pdfvectorialwriter.pas
index 32e90cda77..2a4e0b1ba9 100644
--- a/components/fpvectorial/pdfvectorialwriter.pas
+++ b/components/fpvectorial/pdfvectorialwriter.pas
@@ -136,6 +136,7 @@ type
     procedure AddImage(AImage: TvRasterImage; ABox: TvBoundBox);
   public
     constructor Create; override;
+    destructor Destroy; override;
     procedure WriteToFile(AFileName: String; AData: TvVectorialDocument); override;
     procedure WriteToStream(AStream: TStream; AData: TvVectorialDocument); override;
   end;
@@ -810,6 +811,12 @@ begin
   gTTFontCache.BuildFontCache;
 end;
 
+destructor TvPDFVectorialWriter.Destroy;
+begin
+  inherited;
+  FDocument.Free;
+end;
+
 procedure TvPDFVectorialWriter.WriteToFile(AFileName: String; AData: TvVectorialDocument);
 var
   OStream: TFileStream;