* compile fix

tests/webtbs/tw1251b.pp

@@ -1,5 +1,8 @@
-program strings;
-
-uses classes;
-
-var list : TStringList;
+program strings;
+
+uses classes;
+
+var list : TStringList;
+
+begin
+end.