diff --git a/tools/jsonviewer/frmcreatecode.pp b/tools/jsonviewer/frmcreatecode.pp
index c79531409a..04b39b082f 100644
--- a/tools/jsonviewer/frmcreatecode.pp
+++ b/tools/jsonviewer/frmcreatecode.pp
@@ -83,6 +83,7 @@ begin
     exit;
     end;
   FormToGenerator;
+  FGenerator.Code.Clear;
   FGenerator.Execute;
   FGenerator.Code.SaveToFile(FECode.FileName);
   ModalResult:=mrOK;
@@ -93,6 +94,7 @@ begin
   If PCCode.ActivePage=TSCode then
     begin
     FormToGenerator;
+    FGenerator.Code.Clear;
     FGenerator.Execute;
     SECode.Lines:=FGenerator.Code;
     end;