Add some output to explain failure for test tests/webtbs/tw40624.pp

tests/webtbs/tw40624.pp

@@ -14,9 +14,15 @@ begin
   DefaultFormatSettings.DecimalSeparator := '.';
 
   if CurrToStr(C) <> '822337203685477.5807' then
-    Halt(1);
+    begin
+      Writeln('Currentcy variable C as string is ',CurrToStr(C),' expecting 822337203685477.5807');
+      Halt(1);
+    end;
   S := V;
   if S <> '822337203685477.5807' then
-    Halt(2);
+    begin
+      Writeln('Currency variable C passed to Variant variable V is ',S,' expecting 822337203685477.5807');
+      Halt(2);
+    end;
   WriteLn('OK');
 end.