diff --git a/puzzles/utrebuchet.pas b/puzzles/utrebuchet.pas
index 27e9fe0..7bbbaeb 100644
--- a/puzzles/utrebuchet.pas
+++ b/puzzles/utrebuchet.pas
@@ -87,6 +87,7 @@ begin
   WriteLn('--- Day 1: Trebuchet?! ---');
   trebuchet := TTrebuchet.Create;
   trebuchet.RunSolution;
+  trebuchet.Free;
 end;
 
 constructor TTrebuchet.Create;