Added solution for "Day 18: Lavaduct Lagoon", part 2

tests/ULavaductLagoonTestCases.pas

@@ -33,7 +33,7 @@ type
     function CreateSolver: ISolver; override;
   published
     procedure TestPart1;
-    //procedure TestPart2;
+    procedure TestPart2;
   end;
 
 implementation
@@ -50,10 +50,10 @@ begin
   AssertEquals(62, FSolver.GetResultPart1);
 end;
 
-//procedure TLavaductLagoonExampleTestCase.TestPart2;
-//begin
-//  AssertEquals(-1, FSolver.GetResultPart2);
-//end;
+procedure TLavaductLagoonExampleTestCase.TestPart2;
+begin
+  AssertEquals(952408144115, FSolver.GetResultPart2);
+end;
 
 initialization