diff --git a/demos/VCL/Header_Footer/Unit_Header_Footer.pas b/demos/VCL/Header_Footer/Unit_Header_Footer.pas
index 748b36a..f36cf6f 100644
--- a/demos/VCL/Header_Footer/Unit_Header_Footer.pas
+++ b/demos/VCL/Header_Footer/Unit_Header_Footer.pas
@@ -40,8 +40,11 @@ procedure TFormHeaderFooter.Button1Click(Sender: TObject);
 var tmp : TTeeGrid;
 begin
   tmp:=TTeeGrid.Create(Self);
-  tmp.Assign(TeeGrid1);
-  tmp.Free;
+  try
+    tmp.Assign(TeeGrid1);
+  finally
+    tmp.Free;
+  end;
 end;
 
 type